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
很简单的代码,刚学编程的时候就应该会的啊!