如何找到数组中最小和最大的数字？

Question

你好我怎样才能找到德尔福最小和最大的数字？

假设我有存储在数组中10个不同的数字：

我如何才能找到我的阵列的最大数量和最小的号码？

Answer 1

简单地以线性方式遍历数组。为最小值保留一个变量，为最大值保留一个变量。初始化为数组中的第一个值。然后，对于每个元素，如果该元素分别小于或大于最小值或最大值，则更新最小值或最大值。

minval := a[0]; 
maxval := a[0]; 
for i := 1 to Count-1 do 
begin 
    if a[i]<minval then 
    minval := a[i] 
    else if a[i]>maxval then 
    maxval := a[i]; 
end; 

很明显，这段代码假设Count> 0。

请注意，您可以同样使用Math单元中的MinValue和MaxValue例程。

Answer 2

迭代遍历数组，比较先前找到的最小值和最大值。

这是一段代码片段。澄清之后，我编辑了使用Int64的代码。

Min := High(Int64); 
Max := Low(Int64); 
for ThisNumber in MyArray do 
begin 
    if ThisNumber < Min then 
    begin 
    Min := ThisNumber; 
    end 
    if ThisNumber > Max then 
    begin 
    Max := ThisNumber; 
    end; 
end; 

很有趣的是，在MaxIntValue作为Math.pas实现：

function MaxIntValue(const Data: array of Integer): Integer; 
var 
    I: Integer; 
begin 
    Result := Data[Low(Data)]; 
    for I := Low(Data) + 1 to High(Data) do 
    if Result < Data[I] then 
     Result := Data[I]; 
end; 

此实现，类似于大卫的回答，使用第一个数组值作为初始值。这假定数组至少有一个元素。还要注意，循环可以从Low（Data）+ 1开始并保存一个不必要的比较。对于您所描述的数据，每个阵列中有100个元素，最多可以提高1％的速度。

如果性能并不重要，MinIntValue和MaxIntValue会更加简洁。如果你推出自己的游戏，那么你只是遍历数组而不是两次。