Ich hab doch nie behauptet, daß max() und abs() das gleiche tun, sondern max() - min(). Und das sollte ja dann passen.
Ginge also so:
Delphi-Quellcode:
function GetMaxDiff(aData : Array of Integer;MeanValue : Integer) : Integer;
Var i : Integer;
begin
Result := 0;
for i := low(aData) to high(aData) do
if abs(MeanValue,aData[i]) > Maxdiff then
Result := abs(MeanValue,aData[i]);
end;
Wegen rotem Kasten:
@BrunoT:
Jo, in etwa hab ich das ja auch schon geschrieben
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;