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

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;

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

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

Согласен с предыдущим сообщением. Где Ваши наработки?

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;

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

1) С вводом элементов массива вы должны справиться сами.
2) Для сохранения номеров заведите второй массив.

вот я и не знаю,как его завести

Точно также как и первый. Опишите в разделе описания переменных. Организуйте цикл по элементам массива, сравнивайте их с нулем. Элементы удовлетворяющие услоию заносите в новый массив.
Цикл с параметром вы знаете, проверить равенство нулю тоже несложно, да и с оператором присваивания знакомы, а большего вам для решения задачи и не нужно, только чуть-чуть подумать. Вам нужно только правильно организовать нумерацию элементов нового массива.