Håller på att fila på ett program som ska slumpa fram tio tal som sedan ska lagras i en array. Så långt inga problem. Nu ska jag försöka addera alla dessa tal och räkna ut medelvärdet, men jag lyckas inte få till något bra sätt att summera alla arrayelementen. Kan någon hjälpa?

Om jag förstått din fråga rätt så borde det lösas efter denna princip.
<code>
procedure TForm1.Button1Click(Sender: TObject);
var
MyArray :array[1..10] of Double ;
sum :Double ;
average :Double ;
n :Integer;
begin
n := 1 ;
while n<= 10 do begin
sum := sum + MyArray[n];
inc(n) ;
end;
n := n - 1 ;
average := sum / n ;
ShowMessage(FloatToStr(average));
end;
end.
</code>

En betydligt snyggare lösning än min. Stort tack! :)