Выбираем переменную для счетчика, например count, обнуляем ее. Вводим значение переменной k. В цикле перебираем все числа из набора по порядку (хорошо бы их сначала оформить в виде массива). Сравнивая числа со значением k по условию:
if a[i]<k then count:=count+1. после окончания цикла выводим на экран значение k.
Var r1,r2,r3,min:real;
begin
writeln('Введите результаты:');
readln(r1,r2,r3);
if r1<r2 then min:=r1 else min:=r2;
if r3<min then min:=r3;
writeln('Лучший результат = ',min);
end.
Пример:
Введите результаты:
12.1 10.8 11.7
Лучший результат = 10.8
Галочка вниз-дизъюнкция,это и есть сложение
Воть, всё по логике *:
Удачи:)
<em>P.S. Первые 3 условия по-видимому можно исключить, но я не стал рисковать: в этом мире и так чудес мало, а программа работает</em>