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

Question

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

Answer 1

//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.