Notendurchschnitt

[Luckie]

Delphi-Quellcode:

for i := 0 to length(ArrayNoten) - 1 do
begin
  sum := sum + ArrayNoten[i];
end;
Durchschnitt := sum / ArrayNoten;

ArrayNoten ist ein Integer Array, in dem die Noten drin stehen.