Wie kann ich ein Durschnitt bilden ohne vollst. Zahlen

[GetCool]

Hab sowas im Info-Unterricht auch mal gemacht:

Delphi-Quellcode:

for i:=1 to 10 do // 10 Durchgänge, für jedes Feld einen
begin
  zahl[i]:=0; // Variablen auf 0
  if (TEdit(FindComponent('Edit'+inttostr(i))).text)<>'' then // Wenn das Feld leer ist überspringen
  try // bei Fehler wird in bei except weitergemacht, verhindert Buchstaben
    zahl[i]:=strtoint(Trim(TEdit(FindComponent('Edit'+inttostr(i))).text));
    // Such nach dem Edit-Feld und lese es dann ins Array ein
    inc(zwi,zahl[i]); inc(teiler) // Für die Rechnung zusammenzählen und Teiler erhöhen
  except inc(fehler) end; // Wenn Fehler, dann die Fehleranzahl erhöhen
end;

durchschnitt.text:=floattostr(zwi/teiler);