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

Question

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

Comments

Язык?

---

Паскаль

---

если я правильно тебя понял

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