最高が999の場合 '--- FOR L=999 TO 0 STEP -1 FOR A=0 TO 8 IF X[A]==L THEN Y[B]=X[A] B=B+1 NEXT NEXT