Массив Опции

[Ольга.В]

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

[мисс_граффити]

 {по идее, надо обнулить массив nom - номера нулевых эл-тов. это сделай сама}
j:=0;
for i:=1 to n do
  begin
  mas[i]:=random(5)-3; {заполняем массив, если еще не заполнили}
  if mas[i]=0 then
    begin
    inc(j);
    nom[j]:=i;
    end;
  end;

...как всегда не успела.

Сообщение отредактировано: мисс_граффити - 19.11.2006 0:35