Помогите решить задачу в Паскале

[Ronick]

Помогите решить задачу в Паскале

нужно составить программу нахождения количества нулевых(=0) элементов в массиве.Помогите плиз.

 

[kreol]

const n=5;
var i: integer;
a: array [0..n] of integer;
begin
for i := 0 to n do
   readln(a[i]);

for i := 0 to n do
  begin
    if a[i]=0 then
      write('nomer elementa massiva = ', i,'   ');
  end;
end.