Вцелочисленной последовательности есть нулевые элементы. создать массив из номеров этих элементов. то-есть дан массив в которым есть нулевые значения.например: 20330120 от вас требуется создать массив из номеров этих нулевых значений. например: 2 5 8

Var
  a, b : array [1..1000] of integer;
  n, m, i : integer;
begin
  read (n);
  for i := 1 to n do read (a[i]);
  m := 0;
  for i := 1 to n do
    if a[i] = 0 then
    begin
      m := m + 1;
      b[m] := i;
    end;
  for i := 1 to m do write (b[i], ' ');
end.