Ответ:

program_z1;

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

i,k,n:integer;

begin

readln(n);

for i:=1 to n do begin

read(a[i]);

if a[i]<0 then k+=1;

end;

writeln(k);

end.

Объяснение:

1-е число - это кол-во чисел которых ты введёшь.