Visual FoxPro 试题 输入5个数，去掉最大值、最小值，再求平均值

Question

急急急急急急急急急急

Answer 1

可以很简单的

Input "请输入第一个数: " to lnNum1
Input "请输入第二个数: " to lnNum2
Input "请输入第三个数: " to lnNum3
Input "请输入第四个数: " to lnNum4
Input "请输入第五个数: " to lnNum5

lnMax = max(lnNum1, lnNum2, lnNum3, lnNum4, lnNum5)
lnMin = min(lnNum1, lnNum2, lnNum3, lnNum4, lnNum5)
lnSum = lnNum1+lnNum2+lnNum3+lnNum4+lnNum5
? "去掉最大值、最小值，再求平均值", (lnSum-lnMax-lnMin)/3

Derek Shu

Answer 2

一楼回答的很好，我来补充下：
第六行代码改为这个比较好
input "请输入第"+ALLTRIM(STR(i))+"个数：" to a(i)

Answer 3

clear
set talk off
dime a(5)
s=0
for i=1 to 5
input to a(i)
s=s+a(i)
endfor
for i=1 to 4
for j=i+1 to 5
if a(i)>a(j)
t=a(i)
a(i)=a(j)
a(j)=t
endif
endfor
endfor
?"中间三个数的平均值是：",(s-a(1)-a(5))/3
set talk on
return