@alzaimar: deine variante funzt eh
Zitat von
alzaimar:
aha
Delphi-Quellcode:
Var
l : Array [0..9] Of Integer;
r,i : Integer;
Begin
For i := 0 to 9 do
Repeat
a[i] := Random (100); // Randomzahl einfügen
j := 0;
while a[j]<>a[i] do inc (j); // Die gleiche Zahl suchen
Until i=j; // Wenn die gleiche Zahl an Pos i steht, ist sie eindeutig
// Hier sind in a[0..9] eindeutige Zufallszahlen.
End;
Diese Variante funktioniert dafür aber perfekt