Подсчитать количество отрицательных, положительных - вопрос №5493627 от ведим 04.12.2022 07:11

Question

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

ведим · 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....