Решите задачку на одномерный массив.Определите количество 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