Помогите с инофрматикой
В массиве, заполненном из 20 случайных целых чисел в диапазоне от -99 до 99 найти количество отрицательных чисел(это все в Паскале)
По дате
По рейтингу
uses crt;
var i, j, k: integer;
a: array[1..20] of integer;
begin
textbackground(white);
textcolor(magenta);
clrscr();
k := 0;
j := 0;
randomize();
for i := 1 to 20 do
begin
a[i] := random(199) - 99;
write(a[i]: 4);
j := j + 1;
if (j = 10) then
begin
j := 0;
writeln()
end;
if a[i] < 0 then k := k + 1
end;
writeln(k, ' отрицательных чисел')
end.