-30 до 30. Подсчитайте в этом массиве количество положительных и количество отрицательных чисел.

PascalABC.Net

begin  var x := ReadInteger('Введите длину массива');  var a := ArrRandom(x, -30, 30);  Println('Массив', a);  Println('Положительных: ', a.Where(y -> y > 0).Count);  Println('Отрицательных: ', a.Where(y -> y < 0).Count); end.