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;

推荐分享