Hallo,
mach Dir doch drei Arrays
Delphi-Quellcode:
gezogeneZahlen : Array[1..6] of Byte;
gewaehlteZahlen: Array[1..6] of Byte;
ZahlenRichtig : Array[1..6] of Byte;
Delphi-Quellcode:
k:=0;
for i:=1 to 6 do
for j:=1 to 6 do
if gewaehlteZahlen[i] = gezogeneZahlen[j] then
begin
inc(k);
ZahlenRichtig[k]:=gewaehlteZahlen[j];
end;
Wenn dann am Ende k = 6 ist, dann stimmen 6 Zahlen überein.
Wenn es weniger sind entspricht k der Anzahl der richtigen Zahlen.
Die richtigen Zahlen stehen dann im Array ZahlenRichtig.
Grüße
Klaus