max() mit vielen zahlen

[3_of_8]

Ich glaube nicht. Lässt sich aber relativ leicht machen:

Delphi-Quellcode:

procedure MaxEx(const a: array of Integer): Integer;
var I: Integer;
begin
  if length(a)=0 then
    Result:=0
  else begin
    Result:=a[0];
    for I:=1 to high(a) do
      if a[I]>Result then Result:=a[I];
  end;
end;