Pascal Количество положительных чисел

[#Azamat]

Подсчет количества элементов с определенным признаком довольно частая программистская задача.

program cycle_for;
var i,kn : byte; x:real;
begin
kn:=0;
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
readln(x);
if x>0 then kn:=kn+1 {увеличиваем кол-во на 1}
end;
writeln('Вы ввели ',kn,' положительных чисел.');
readln
end.

Автор: Неизвестен