@Khabarakh: Deine Methode hat den Nachteil, dass die Werte immer denselben Abstand haben, also nicht wirkliche Zufallszahlen zwischen 1 und 100 sind, sondern z.B. 12, 22, 32, 42 usw.
Der Algorithmus von alzaimar war
IMHO besser, allerdings hat er die Veränderung an der falschen Stelle eingebaut.
Delphi-Quellcode:
Const
Count = 100; // <-- hier 100
Var
A : Array[0..Count-1] of Integer;
I, J, T : Integer;
begin
For I := 0 to Count-1 do
A[I] := I; // <-- hier lassen
For I := 0 to Count-1 do
begin
J := I+random(Count-I);
T := A[J];
A[J] := A[I];
A[I] := T;
end;
// und dann einfach nur die ersten 10 Elemente aus dem Array nehmen!
end;