Заполнить массив случайными числами в интервале от -20 до 44. Посчитать количество отрицательных чисел.

begin
  var a:=ArrRandom(ReadInteger('n='),-20,40); a.Println;
  Writeln('Кол-во отрицательных: ',a.Where(x->x<0).Count)
end.


n= 15
-1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6
Кол-во отрицательных: 9