求一个数组的最大值,最小值,次大值,次小值,
var
Cost: array [0..9] of Double;
begin
cost[0]:=1;
cost[1]:=2;
cost[2]:=3;
cost[3]:=4;
cost[4]:=5;
cost[5]:=6;
cost[6]:=7;
cost[7]:=8;
cost[8]:=9;
cost[9]:=10;
最大值:=MaxValue(Cost)
最小值:=MinValue(Cost)
次大值,次小值,怎么求呀
end;
[解决办法]
max := cost[0];
nextmax := cost[0];
for I := 1 to 9 do
begin
if cost[I] > max then
begin
nextmax := max;
max := cost[I];
end;
end;
[解决办法]
直接插入排序、希儿排序、冒泡排序、快速排序、直接选择排序...
