Подсчитать количество отрицательных, положительных - вопрос №5492725 от СашаСтоляров1 06.02.2020 00:57

Question

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

СашаСтоляров1 · 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....