Hi.
Durchschnitt und (arithmetischer) Mittelwert sind landläufig dasselbe. Wenn du aber den
mittleren Wert (Median) brauchst, dann musst du deine Werte erst sortieren. Maximum und Minimum sind dann Abfallprodukte des Sorts und der Median ergibt sich zu:
Delphi-Quellcode:
function Median(s: TStrings): Extended;
var
iMedian: Integer;
begin
iMedian := s.Count div 2;
if Odd(s.Count)
then Result := StrToInt(s[iMedian])
else Result := (StrToInt(s[iMedian]) + StrToInt(s[Pred(iMedian)])) / 2;
end;
Grüße vom marabu