[mihaSIK73]

В общем, над сделать так, чтобы в коде...

Код:

begin
repeat  a1:=random(6)+1;
        a2:=random(6)+1;
        a3:=random(6)+1;
        a4:=random(6)+1;
        a5:=random(6)+1;
        a6:=random(6)+1;
until условие;
end;

...условие выглядело примерно так:
a1<>a2<>a3<>a4<>a5<>a6

[Bargest]

А не проще сначала выбрать a[1], потом a[2] <> a[1], потом a[3] <> a[1] и a[3] <> a[2], и так далее?
Переведи алгоритм с русского на паскаль и все будет работать.
А если учесть, что чисел 6 и переменных 6, то можно каждому присвоить числа от 1 до 6 и использовать случайное перемешивание.

[mihaSIK73]

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

А не проще сначала выбрать a[1], потом a[2] <> a[1], потом a[3] <> a[1] и a[3] <> a[2], и так далее?

Точно, так легче. Спасибо.

[Alegun]

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

Точно, так легче...

Да не то что легче, - с приведенными условиями возможен даже вечный цикл - их выполнение может очень долго подбираться или вообще никогда не произойти

[poli-smen]

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

Да не то что легче, - с приведенными условиями возможен даже вечный цикл - их выполнение может очень долго подбираться или вообще никогда не произойти

Совершенно верно. Даже если не случится вечный цикл, то всё равно это очень плохой способ расположить числа в случайной последовательности - зачем занимать процессор глупым подбором, даже не будучи уверенным в том подберёт ли он вообще нужную последовательность, если можно того же результата добиться с помощью очень быстрого (практически мгновенного) случайного перемешивания (как советует Bargest):

Код:

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;

[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;

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