1 PRINT 2 PRINT 3 PRINT " PROGRAM FOR ARRANGING NUMBERS IN DECENDING ORDER " 4 PRINT 5 PRINT "TYPE IN THE NUMBER OF NUMBERS TO BE ARRANGED"; 6 INPUT N 7 PRINT 8 PRINT " TYPE IN VALUES OF THE NUMBERS" 10 DIM X[50] 20 FOR I=1 TO N 30 INPUT X[I] 40 NEXT I 45 PRINT 46 PRINT 50 LET J=1 55 LET N2=N-1 60 FOR J=1 TO N2 70 LET M=J 80 LET M2=J+1 90 FOR K=M2 TO N 100 IF X[K]>X[J] THEN 130 120 GOTO 140 130 LET M=K 140 NEXT K 150 LET T3=X[J] 160 LET X[J]=X[M] 170 LET X[M]=T3 180 NEXT J 190 FOR L=1 TO N 200 PRINT X[L] 210 NEXT L 300 REM : PROGRAM BY J. J. PICAZO 400 END