Ordenamiento por conteo

1// Muestra el arreglo completo solo si es corto (30 o menos)2SubProceso MostrarDatos(titulo, datos, n)3    Definir i Como Entero4    Si n <= 30 Entonces5        Escribir Sin Saltar titulo6        Para i <- 1 Hasta n Hacer7            Escribir Sin Saltar datos[i], " "8        FinPara9        Escribir ""10    SiNo11        Escribir titulo, n, " números (el primero es ", datos[1], " y el último ", datos[n], ")"12    FinSi13FinSubProceso1415Algoritmo OrdenamientoConteo16    Definir datos, conteo, n, i, valor, veces, k Como Entero17    Escribir "¿Cuántos números quieres ordenar? (1 a 512)"18    Leer n19    Dimension datos[n]20    Para i <- 1 Hasta n Hacer21        datos[i] <- Aleatorio(1, 99)22    FinPara23    MostrarDatos("Antes:   ", datos, n)24    // Una casilla por cada valor posible (1 a 99): eso es la k de O(n + k)25    Dimension conteo[99]26    Para valor <- 1 Hasta 99 Hacer27        conteo[valor] <- 028    FinPara29    // Contamos cuántas veces aparece cada valor30    Para i <- 1 Hasta n Hacer31        conteo[datos[i]] <- conteo[datos[i]] + 132    FinPara33    // Reescribimos el arreglo: cada valor tantas veces como apareció34    k <- 035    Para valor <- 1 Hasta 99 Hacer36        // "Con Paso 1": si un valor no apareció, este Para no se ejecuta37        Para veces <- 1 Hasta conteo[valor] Con Paso 1 Hacer38            k <- k + 139            datos[k] <- valor40        FinPara41    FinPara42    MostrarDatos("Después: ", datos, n)43FinAlgoritmo