仅供参考：
dime a(10)
for i =1 to 10
input to a(i)
endfor
for i=1 to 9
for j=i+1 to 10
if a(i)<a(j)
t=a(i)
a(i)=a(j)
a(j)=t
endif
next
next
for i=1 to 10
? a(i)
endfor
rutu