Нахождение количества нулей

AvariItigail

23 апреля 2016

Входные данные
Вводится число N, а затем N чисел.

Выходные данные
Подсчитайте и выведите, сколько среди данных N чисел нулей.

Исходный код на языке Pascal

var
  n, a, i, k: integer;

begin
  k := 0;
  read(n);
  for i := 1 to n do 
  begin
    read(a);
    if (a = 0) then
      k := k + 1;
  end;
  writeln(k);
end.