五个评分中有 85,94,77,80，去掉最高、最低分，平均值为五个分的中位数，求第五个评分

ataorj

;有无不需要近似运算,不产生小数的数呢?
Dim m(4) : Dim n(4)
m(1)=94
m(2)=85
m(3)=80
m(4)=77
;94+85+80+77=336
For a=1 To 99
CopyArray(m(),n())
n(0)=a
SortArray(n(),#PB_Sort_Descending)
p=(336+a)/5 : q=(336+a)%5 : k=n(1)+n(2)+n(3)
If q=0 And p=k/5 And q=k%5
  Debug a
EndIf
Next
;并无输出,说明必然有小数产生