有没有函数直接得到一个数值型数组中的最大值

Question

有没有函数直接得到一个数值型数组中的最大值
比如:a:=[1,5,7,6,8]
得到a[4]w为最大值

Answer 1

var
 i,tmp : integer;begin
  tmp:=0;
  For i:=0 to length(a)-1 do 
    if a[i]>tmp then tmp:=a[i];  
//这里tmp就是最大值.
end;

Answer 2

function GetMax(aa: array of Integer): Integer;
var
  i: Integer;
begin
  Result:=-MAXINT;
  for i:=Low(aa) to High(aa) do
    if aa[i]>Result then
      Result:=aa[i];
end;

Answer 3

就算有，也你自己写的也应差不离
hehe