Подсчитать количество нулевых элементов вектора x(10)

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var x:=ArrRandom(10,-2,3); x.Println;
  Writeln('Нулевых: ',x.Where(x->x=0).Count)
end.

Тестовое решение
2 -2 -2 0 0 1 0 2 0 1
Нулевых: 4