Question

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

Answer 1

var n,k,i,a:longint;

begin

k:=0;

readln(n);

for i:=1 to n do begin readln(a); if(a<0) then k:=k+1; end;

writeln(k);

end.