Question

Помогите Пожалуйста!!Буду очень Благодарна!!♥
Придумать задачу на подсчет элементов по определенному признаку введенных с клавиатуры. (В Паскале Abc)

Answer 1

var a,b,i,k:integer
begin
 readln(a);
 for i:=1 to a do begin 
 readln(b);
 if b>0 then  
 k:=k+1;
end;
writeln('кол-во положительных чисел = ',k);
end.
В этой программе считается сумма положительных чисел среди введенных