Musst du denn die Werte alle speichern?
oder reicht es nicht wenn du am ende einfach die summe hast?
Delphi-Quellcode:
function Wuerfeln(Wuerfel, Anzahl: Integer):Integer;
var i: Integer;
begin
Result:=0;
for i:=1 to Anzahl do
Result:=Result+Random(Wuerfel)+1;
end;
Und zum Schluss:
Real sollte nicht mehr verwendet werden, nimm lieber (wenn schon Fließkomma) Single, Double oder Extended. Warum? afaik weil Real reichlich subobtimal in der Performance ist weil es 48 Bit ist (???). Richtig?