Решите задачу на одномерный массив.

Определите количество 0 в заданном массиве.

var a:array[1 ... 100000] of integer;

i, n, k:integer;

begin

k:=0;

readln (n) ;

for i:=1 to n do begin readln (a[i]) ; if (a[i]=0) then k:=k+1; end;

writeln (k) ;

end.

{Сначала вводится количество чисел в массиве (n), после этого вводится каждое число (a[i]) и если оно равно 0, то переменная k (количество)

увеличивается на 1}