Question

напишите программу которая в последовательности целых чисел определяет количество положительных чисел​

Answer 1

var a,i,k,sum:integer;

begin

read(a); //кол-во числе в последовательности

for i:=1 to a do begin

read(k);

if(k>=0)then sum:=sum+1; //проверка на положительное число

end;

write(sum);

end