Question

Как это сделать в pascal ABC

Answer 1

program abc;

var n,k,i:shortint;

a:real;

begin

readln(n);

k:=0;

for i:=1 to n do  

 begin  

  readln(a);

   if a<0 then

    k:=k+1;

 end;

writeln(k);

end.