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

Вопрос школьника по предмету Информатика

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017

// Внимание! Если программа не работает, обновите версию!

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