Подсчитать количество отрицательных, положительных - вопрос №5492725 от АнимешницаВикуля777 16.01.2021 23:59

Question

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

АнимешницаВикуля777 · 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....