Delphi-Quellcode:
var
i, value : Integer;
for i := 0 to Listbox1.Items.Count-1 do
value := value + StrToInt(Listbox1.Items[i])
value := value mod Listbox1.Items.Count-1;
Obwohl, mir fällt grad ein das wäre ja der Durchschnitt und nicht der Mittelwert.
