Zählschleife Auswertung der Zufallszahlen

[shmia]

Du hast ja nur Zufallszahlen von 1 bis 6 (Würfel).
Also ein Array nehmen:

Delphi-Quellcode:

Zaehler_feld:array[1..6] of integer;
...
for i := 1 to 100 do
begin
   zzahl := z[i];
   if (zzahl >= 1) and (zzahl <= 6) then  // Sicherheitsabfrage
      Zaehler_feld[zzahl] := Zaehler_feld[zzahl] +1
   else
      ; // Fehler, dürfte nie vorkommen
end;