Ordenamiento burbuja

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 OrdenamientoBurbuja16    Definir datos, n, i, j, aux, pasadas Como Entero17    Definir huboCambios Como Logico18    Escribir "¿Cuántos números quieres ordenar? (1 a 512)"19    Leer n20    Dimension datos[n]21    Para i <- 1 Hasta n Hacer22        datos[i] <- Aleatorio(1, 99)23    FinPara24    MostrarDatos("Antes:   ", datos, n)25    // En cada pasada, el mayor "sube" hasta su lugar al final26    pasadas <- 027    huboCambios <- Verdadero28    Mientras huboCambios Y pasadas < n - 1 Hacer29        pasadas <- pasadas + 130        huboCambios <- Falso31        Para j <- 1 Hasta n - pasadas Hacer32            Si datos[j] > datos[j + 1] Entonces33                aux <- datos[j]34                datos[j] <- datos[j + 1]35                datos[j + 1] <- aux36                huboCambios <- Verdadero37            FinSi38        FinPara39        // Si una pasada no cambió nada, el arreglo ya está ordenado40    FinMientras41    MostrarDatos("Después: ", datos, n)42    Escribir "Pasadas necesarias: ", pasadas43FinAlgoritmo