[mihaSIK73]

Сообщение от poli-smen

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array[1..6]of Integer;
  i, j, temp: Integer;
begin
  for i := 1 to 6 do a[i] := i;

  for i := 1 to 6 do
  begin
    j := Random(6) + 1;
    temp := a[i];
    a[i] := a[j];
    a[j] := temp;
  end;

Спасибо, получилось!