Question

vfp如何求6个数的第二最大值和第二最小值，谢谢

有6个数在0.1到9.9之间，如何求6个数的第二最大值和第二最小值，高手请指点，不胜感谢

Answer 1

local aNum[6]
local aD[6]
local i

** 下面六个数为举例，可自行替换
aNum[1]=0.2
aNum[2]=2.0
aNum[3]=3.9
aNum[4]=9.2
aNum[5]=1.4
aNum[6]=0.1

for i=1 to 6
aD[i]=0
endfor

for i=1 to 6
for j=1 to 6
if aNum[i]>aNum[j]
aD[i]=aD[i]+1
endif
endfor
endfor

for i=1 to 6
if aD[i]=4
?"第二大是："+str(aNum[i],4,1)
endif
if aD[i]=1
?"第二小是："+str(aNum[i],4,1)
endif
endfor

Answer 2

dimension a(6)
clear
for i=1 to 6
?"请输入第"+str(i,1)+"个数："
input to a(i)
endfor
for i=1 to 5
for j=i+1 to 6
if a(i)>a(j)
t=a(i)
a(i)=a(j)
a(j)=t
endif
endfor
endfor
?"第二最大值是：",a(5)
?"第二最小值是：",a(2)
return