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

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;

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

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