//求最大值
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;
联系客服