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

program zz1;

const n = 5; / / задаем количество чисел в последовательности

var a, i, s:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / организуем цикл, в котором введем с клавиатуры n заданных чисел последовательности

begin

read (a);

if a = 0 then begin s:=s + 1; m[s]:=i; end; / / проыеряем число последовательности, если оно равно нулю, то записываем его в массив

end;

for i:=1 to s do

write (m[i],' '); / / выводим полученные числа из массива в строку через пробел

end.