Question

用delphi编写函数求一个数组中的最大值和最小值

急求，谢谢各位了哪位高手帮下忙

若以下回答无法解决问题，邀请你更新回答

Answer 1

//求最大值
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;