Ordenamiento por selección

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 OrdenamientoSeleccion16    Definir datos, n, i, j, minimo, aux, intercambios 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    intercambios <- 025    // "Con Paso 1" evita que el Para cuente hacia atrás cuando n = 126    Para i <- 1 Hasta n - 1 Con Paso 1 Hacer27        // Buscamos el menor entre las posiciones i y n28        minimo <- i29        Para j <- i + 1 Hasta n Hacer30            Si datos[j] < datos[minimo] Entonces31                minimo <- j32            FinSi33        FinPara34        // Y lo llevamos a la posición i con un solo intercambio35        Si minimo <> i Entonces36            aux <- datos[i]37            datos[i] <- datos[minimo]38            datos[minimo] <- aux39            intercambios <- intercambios + 140        FinSi41    FinPara42    MostrarDatos("Después: ", datos, n)43    Escribir "Intercambios realizados: ", intercambios44FinAlgoritmo