ne dass ist nciht gewollt. da´habe ich aber schon eine Lösung für Zahlen_ermitteln, aber die Lösung für Zahlen_ausgeben fehlt
Delphi-Quellcode:
var i,j,Zahl : Integer;
begin Randomize;
for i := 1 to 6 do
begin
zahl := random (49)+1;
j := 1;
while j<i do
begin
if Lottozahlen[j] = zahl
then begin
zahl := random (49)+1;
j:=0;
end;
j:=1+1;
end;
Lottozahlen[i]:=zahl;
end;
end;
[edit=Christian Seehase]Delphi-Tags hinzugefügt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]