begin
Randomize;
begin
int := Random(100);
end;
Но бывает что randomize 2 (или больше) раза подряд выдает одно и тоже число. Можно ли както этого избежать? Исключить повторение двух чисел подряд?
begin
Randomize;
begin
int := Random(100);
end;
var prev: integer = 100; // глобально
// ...
begin
repeat
i := random(100);
until i <> prev;
prev := i;
end;