Массив Опции

[BanneD]

Всем доброго времени суток!
Помогите с программным кодам

program loto;
const n=90;
var i:integer;
    a:array[1..n] of integer;
begin
randomize;
     for i:=1 to 85 do
     begin
          a[i]:=random(91);
          if a[i]<>0 then writeln(' a[',i,']=',a[i]);
     end;
end.

Мне надо чтобы сгенерированные числа не повторялись! Как это сделать??

[TarasBer]

> я то условие поставил что не выводим ноль!

Это называется костыль. Правильный алгоритм должен работать без костылей.

> А то что ты с процедурами написал я там нифига не понял

Не проходили ещё?

[BanneD]

> я то условие поставил что не выводим ноль!

Это называется костыль. Правильный алгоритм должен работать без костылей.

> А то что ты с процедурами написал я там нифига не понял

Не проходили ещё?

ага, еще не проходили=)