[lmikle]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 a: array of integer;
 i: integer;
begin
 Randomize;
 SetLength(a, Random(10)+10);
 for i := Low(a) to High(a) do a[i]:= Random(10);
end;

Хоть куда вывод-то делать, не ведомо

Да в Memo1 выведи:

Код:

for i := Low(a) to High(a) do Memo1.Lines.Add(IntToStr(a[i]));