{* Количество нулей в массиве *}

Unit KOLV0;
Interface
Implementation
Begin
 writeln('В одномерном массиве, состоящем из n целых чисел, подсчитать количество нулей.');
End.

Program kolv0;

Uses kolv0.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : Array[1..100] Of integer;
  i : integer;
  n : integer;
  k : integer;
Begin
  Write (‘n = ’);
  Readln (n);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    Write(‘a[‘, i,’] = ’);
    readln (a[i]);
    If a[i] = 0 Then
      k := k + 1;
  End;
  Writeln(‘количество 0 равно  ’, k);
End.