Kleinste Zahl?

[negaH]

Delphi-Quellcode:

function Min(const Values: array of Integer): Integer;
var
  I: Integer;
begin
  Result := MaxInt;
  for I := Low(Values) to High(Values) do
    if Values[I] < Result then Result := Values[I];
end;