Вопрос Можно ли в паскале, заставить программу не рандомить одно и тоже число несколько раз?

[Mortenuk]

Можно ли в паскале, заставить программу не рандомить одно и тоже число несколько раз?

 

[Михун]

Можно. Конкретнее пишите, что хотите получить. Можно сверять числа, если одинаковые рандомить новое.

 

[Thresh]

Const n=5; Var a: set of byte; i,x:byte; Begin a:=[]; Randomize; i:=0; While i<n do begin x:=Random(10); if not (x in a) then begin i:=i+1; Writeln(x); a:=a+[x]; end; end; End. Можно и через массив

 

[vasy]

в бейсике - randomize timer