Randomize, Чёт не то Опции

[Anastacia Adesso]

 LATLOTO.PAS ( 719 байт ) Кол-во скачиваний: 378
Не скажите, как сделать эту программу, чтоб случайные числа выпадали ОБЯЗАТЕЛЬНО разные?
Please

[volvo]

Можно... Только во-первых, будет сложнее для понимания, а во-вторых - больше кода... Нужно?

Вот, объем кода не особо увеличился :

    procedure masivs;
    var
      found: boolean;
      j: integer;
    begin
      randomize;
      for i:=1 to n do begin
        repeat
          ar[i] := 1 + random(35);
          found := false;
          for j := 1 to i - 1 do
            if ar[j] = ar[i] then found := true;
        until not found;
      end;

      writeln('Skaitli 5 no 35');writeln;
    end;