4. MOSTRAR ALUMNOS ORDENADOS POR MAYOR PUNTAJE DE PROMEDIO

Inicio
	Dimensionar alumno[100], nota[100]
	entero i ,j,NE,aux1,aux2
	leer NE
	si(NE>0) entonces
		para i=0 hasta i<NE
			leer alumno[i],nota[i]
		fin_para
		para i=0 hasta i<NE-1
			para j=i+1 hasta j<NE
				si( nota[i]<nota[j]) entonces
					aux1<- alumno[j]
					aux2<- nota[i]
					alumno[i]<- alumno[j]
					nota[i]<- nota[j]
					alumno[j]<- aux1
					nota[j]<-aux2
				fin_si
			fin_para
		fin_para
		para i=0 hasta i<NE
			escribir alumno[i],nota[i]
		fin_para
	fin_si
Fin

Autor
CASTILLO DÍAZ MARGARITA