SET TALK OFF
CLEAR
INPUT "输入数的个数n=" to n
DIMENSION x(n)
FOR i=1 TO n
input "第"+STR(i,4)+"个数=" to x(i)
ENDFOR
?
??"输入的顺序："
FOR i=1 TO n
??x(i)
endfor
a=x(1,1)
?
*|*输入部分
FOR j=2 TO n
 FOR w=2 TO n
 IF x(w)>=x(w-1)
 a=x(w-1)
 x(w-1)=x(w)
 x(w)=a
 endif
 endfor
ENDFOR
*|*判断大小部分
?
??"大到小顺序："
FOR i=1 TO n
??x(i)
ENDFOR
*|*输出大小部分
?
??"小到大顺序："
FOR i=1 TO n
??x(n-i+1)
ENDFOR
*|*输出小大部分
?
??"大小大顺序："
FOR i=1 TO n STEP 2
??x(i)
ENDFOR
IF MOD(n,2)=0
FOR i=n TO 2 STEP -2
??x(i)
ENDFOR
ELSE
FOR i=n-1 TO 2 STEP -2
??x(i)
ENDFOR
endif
SET TALK ON

希望能一行一行分析