Подсчитать количество отрицательных, положительных - вопрос №5493627 от ZONAl 20.09.2022 02:45

Question

Информатика: Подсчитать количество отрицательных, положительных и нулевых элементов вектора.

ZONAl · Answer

//PascalABC.NET 3.1 сборка 1200begin  var a := ArrRandomInteger(50, -50, 50);  writeln( [x 0] = , a.Where(x - x 0).Count);  writeln( [x 0] = , a.Where(x - x 0).Count);  writeln( [x = 0] = , a.Where(x - x = 0).Count);end....