===== PascalABC.NET =====
begin
var n := ReadInteger('Задайте n:');
var a := ReadArrInteger('Вводите массив:', n);
Println('Количество нулевых элементов равно',
a.Count(p -> p = 0))
end.
