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

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

writeln(k);

end.