Составить алгоритм и программу решения задачи: Дано 15 вещественных чисел. Определить сколько среди них больше, чем первое число.

Все эти 15 чисел заранее будут известны пользователю, а значит нужно написать код, который позволит ему вводить эти числа.

Создадим переменные для вводимых чисел, для счетчика и для первого числа, поскольку именно с ним нужно будет сравнивать другие 14:

var number, first_number: real; count: integer;

Заполняем первое число:

writeln ('Введите первое число:');

readln (first_number);

Заполняем оставшиеся 14 чисел:

for i:integer:=2 to 15 do

begin

writeln ('Введите число ', i,; : ');

readln (number);

if number> first_number then

count:=count + 1;

end;

end.