@coder: ich habe das so verstanden, dass er entweder
a ODER
b zufällig in
ab (usw...) schreiben will.
Also so:
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] := zuf_arr[Random(2) +1];
Zuf_arr[10] := zuf_arr[Random(2) +3];
Zuf_arr[11] := zuf_arr[Random(3) +5];
end;