Вцелочисленной последовательности есть нулевые элементы. создать массив из номеров этих элементов. то-есть дан массив в которым есть нулевые значения.например: 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. 

Var   a, b: array[1..10] of integer;   i, min, max, sum: integer;   begin   min : = 10;   for i : = 1 to 10 do   begin       write('введите ',i,'-ый элемент первого массива  '); readln(a[i]);     write('введите ',i,'-ый элемент второго  массива  '); readln(b[i]);     if a[i] < min then min : = a[i];       if b[i] > max then max : = b[i];   end;   for i : = 1 to 10 do       write(a[i], ' ');   writeln;   for i : = 1 to 10 do       write(b[i], ' ');   writeln;     writeln('минимальное первого массива ', min);   writeln('максимальное первого массива ', max);   sum : = min + max;   for i : = 1 to 10 do       if (i mod 2) = 0 then           a[i] : = sum else b[i] : = sum;   for i : = 1 to 10 do       write(a[i], ' ');   writeln;   for i : = 1 to 10 do       write(b[i], ' '); end.