[Delphi (Object Pascal)] Delphi 返回整形数组的最大值 →→→→→进入此内容的聊天室

来自 , 2021-01-02, 写在 Delphi (Object Pascal), 查看 98 次.
URL http://www.code666.cn/view/23c89427
  1. function MaxOfArray(const A: array of Integer): Integer; overload;
  2. var
  3.   Idx: Integer;
  4. begin
  5.   Assert(Length(A) > 0);
  6.   Result := A[Low(A)];
  7.   for Idx := Succ(Low(A)) to High(A) do
  8.     if A[Idx] > Result then
  9.       Result := A[Idx];
  10. end;
  11. //delphi/2283

回复 "Delphi 返回整形数组的最大值"

这儿你可以回复上面这条便签

captcha