Question

В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.

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

Answer 1

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.