Подсчитать количество отрицательных, положительных и нулевых элементов вектора.
Подсчитать количество отрицательных, положительных и нулевых элементов вектора.
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.1 сборка 1200
begin
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.
Не нашли ответ?
Похожие вопросы