Delphi-Quellcode:
var Used: array[1..10] of Integer; i, x, t: Integer;
begin
Randomize;
i := 1;
while i <> 11 do
begin
t := Random(10)+1;
for x := 1 to i do
if Used[x] = t then Break;
if x = i+1 then
begin
Used[x] := t;
Inc(i);
end;
end;
end;
Dieser Code füllt dein Array Used mit 10 unterschiedlichen Zahlen zwischen 1 und 10.
Beware: untested.