delphi中输入n个数，求其最大值、最小值及平均值的代码，各位高手帮忙喂！

发布网友发布时间：2022-05-15 11:18

共4个回答

热心网友时间：2023-10-21 21:12

下面的程序供您参考。输入Values和N，输出fMin, fMax, fAvg

var
fMin, fMax, fAvg;
I: Integer;
begin
fMin := High(Integer);
fMax := - fMin;
fAvg := 0;

for I := 0 to n - 1 do
begin
fAvg := fAvg + Values[i];
if (Values[i] > fMax)
fMax := Values[i];
if (Values[i] < fMin)
fMin := Values[i];
end;

if (n > 0)
fAvg := fAvg / n;
end;

热心网友时间：2023-10-21 21:12

那这几个数放入一个TList中，然后使用TLIst的Sort函数，处理回调函数，就OK了。

热心网友时间：2023-10-21 21:13

math单元不是有现成的吗
MinValue
MinIntValue
。。。。

热心网友时间：2023-10-21 21:13

很简单的代码，刚学编程的时候就应该会的啊！

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com