CLS : 'BORRA PANTALLA

PRINT "Programa para ordenar n números"
PRINT "Enrique Galván Arévalo"
PRINT "última modificaci¢n 6 MAR 2003"
PRINT
PRINT

REM **********RUTINA DE ENTRADA DE DATOS************

INPUT "¿Cuántos números darás?"; n
FOR I = 1 TO n
    INPUT NU(I)
NEXT I

REM ***************RUTINA DE PROCESO****************

DISQUEMAYOR = -9.9E+34
INDMAYOR = 0
FOR J = 1 TO n
    FOR I = 1 TO n
        IF NU(I) > DISQUEMAYOR THEN
            DISQUEMAYOR = NU(I)
            INDMAYOR = I
        END IF
    NEXT I
    NO(J) = NU(INDMAYOR)
    NU(INDMAYOR) = -9.9E+34
    DISQUEMAYOR = -9.9E+34
    INDMAYOR = 0
NEXT J

REM ******RUTINA DE SALIDA DE RESULTADOS************

PRINT "Los números ordenados son:"
PRINT
FOR I = 1 TO n
    PRINT NO(I),
NEXT I