ordenamiento_por_burbuja.psc

Algoritmo sin_titulo
	T = 10
	Dimension arreglo[T]
	
	arreglo[0] <- 100
	arreglo[1] <- 20
	arreglo[2] <- 5
	arreglo[3] <- 1
	arreglo[4] <- 16
	arreglo[5] <- 3
	arreglo[6] <- 4
	arreglo[7] <- 5
	arreglo[8] <- 6
	arreglo[9] <- 15
	
	Para i <- 0 Hasta 8 Hacer
		Para j <- 0 Hasta 8 Hacer
			Si (arreglo[j] > arreglo[j + 1]) Entonces
				aux <- arreglo[j]
				arreglo[j] <- arreglo[j + 1]
				arreglo[j + 1] <- aux
			FinSi
		FinPara
	FinPara
	
	Para i <- 0 Hasta T - 1 Hacer
		Escribir "arreglo[",i,"]=",arreglo[i]
	FinPara
FinAlgoritmo