作者: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;