频道分类

delphi求数组最大\最小值

作者:admin 来源: 日期:2020/1/5 15:06:28 人气: 标签:

 
delphi求数组最大\最小值

//求最大值
function GetMaxInArray(A: array of Integer): Integer;
var
  I: Integer;
  tmpMax: Integer;
begin
  tmpMax := A[0];

  for I := low(A) to High(A) do
  begin
    if A[I] > tmpMax then tmpMax := A[I];
  end;

  Result := tmpMax;
end;

//求最小值
function GetMinInArray(A: array of Integer): Integer;
var
  I: Integer;
  tmpMin: Integer;
begin
  tmpMin := A[0];

  for I := low(A) to High(A) do
  begin
    if A[I] < tmpMin then tmpMin := A[I];
  end;

  Result := tmpMin;

end;