Одномерные массивы

[CkooTuHa]

Ребят, помогите, пожалуйста, сделать задание,не могу понять.

Сформировать одномерный массив, помножив каждый элемент массива на первый элемент исходного массива.

#Delphi

[Foreseen]

На дельфи сойдет?

[CkooTuHa]

Сообщение от Foreseen

На дельфи сойдет?

Сойдет (:








......

[Foreseen]

rocedure TForm1.Button1Click(Sender: TObject);
Var
 old_Massive: array [0..63] of integer;
 new_massive: array of integer;
 i: integer;
begin
Randomize;
 for i := 0 to High(old_Massive) do
   old_Massive[i]:=random(100);
 for i := 0 to High(old_Massive) do
    Begin
       SetLength(new_massive, i+1);
       new_massive[i]:=old_Massive[0]*old_Massive[i];
    End;
end;