Выведите номера всех четных элементов массива

[ANTON66]

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

[Stilet]

Ну вопрос тот же: Твои попытки существуют?

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var p:array of integer;
    i,n:integer;
begin
   Randomize;
   n:=5+Random(30);
   SetLength(p,n);
   For i:=0 to n-1 do
      p[i]:=Random(41);
   Label1.Caption:='';
   For i:=0 to n-1 do
      If p[i] mod 2=0 then
         Label1.Caption:=Label1.Caption+IntToStr(p[i])+#13#10;
end;

Сойдет?