var a:array of integer;

i,n,k:integer;

begin

write('Введите количество элементов массива: ');

readln (n);

a:=new integer[n];

write ('Массив: ');

for i:=0 to n-1 do

begin

a[i]:=random(199)-99;

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

write (a[i]:5);

end;

writeln;

write ('Количество отрицательных элементов ',k)

end.