求最大值的问题!

Question

在Delphi中，如果想取出很多数中的最大值，该怎样做？假设说有100个数，求这100个数中的最大值和最小值，怎样做？谢谢大家！

Answer 1

uses Math;var
  Data: array of Double;
begin
  SetLength(Data, 10);
  Data[0] := 100;
  Data[1] := 13232;
  Data[2] := 3;
  Data[3] := 155;
  Data[4] := 66;
  Data[5] := 77;
  Data[6] := 54;
  Data[7] := 44;
  Data[8] := 66;
  Data[9] := 2;
  ShowMessage('最大值='+FloatToStr(MaxValue(Data))+' 最小值='+FloatToStr(MinValue(Data)));
end;