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

Program mas;
Var a:array [1..10] of integer;
i:byte;
Begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random (10);
write (a[i]); end;writeln;

это заполнение первого массива.а как второй сделать?

свои наработки есть?
читаем правила)) без своих наработок вряд ли Вам окажут помощь... Или в платный раздел