Question

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

Answer 1

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.