您好,我如何在delphi中找到最小和最大的数字？
假设我有10个不同的数字存储在一个数组中：
如何在阵列中找到最大数量和最小数字？
解决方法
只需以线性方式循环遍历数组.保留最小值的变量和最大值的变量.初始化为数组中的第一个值.然后,对于每个元素,如果该元素分别小于或大于最小值或最大值,则更新最小值或最大值.
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例程.