Verified answer

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.