Подсчитать колво цифр(чисел) не отрицательных среди N-произвольных и вывести ** экран

Question

Подсчитать колво цифр(чисел) не отрицательных среди N-произвольных и вывести на экран

Answer 1

var a:array[1..100] of integer;

      i,n,k:integer;

begin

k:=1;

read(n);//Вводите количество самих элементов

for i:=1 to n do begin//Ввод самих элементов

read(a[i]);if a[i]>=0 then k:=k+1;//Подсчет элементов >0

end;

writeln('Количество не отрицательных элементов=',k);//Вывод

readln;

end.