Zufallszahlen aus Variablen

[Coder]

Delphi-Quellcode:

Var
    Zuf_arr :Array[0..100] of integer;
Function rand();
begin
Zuf_arr[1] := 2;
Zuf_arr[2] := 5;
Zuf_arr[3] := 9;
Zuf_arr[4] := 6;
Zuf_arr[5] := 18;
Zuf_arr[6] := 29;
Zuf_arr[7] := 31;
Zuf_arr[8] := 19;
Zuf_arr[9] := Random(zuf_arr[1]);
Zuf_arr[10] := Random(zuf_arr[2]);
Zuf_arr[11] := Random(zuf_arr[3]);
end;