5. -  Se tiene: sección[x], nota de actitudes[x] . Se desea saber:
        ¿Cuáles fueron las 2 secciones con mejor nota de actitudes?
       ¿Cuál fue esa nota?


         Inicio 
               Dimensionar sec[100], notact[100]
	 n<-5
	 x<-1
	 mientras x<= n hacer
	       leer sec[x],notact[x]
	         x<-x+1
             fin _ mientras 

	// solución parte 1y 2 
                 x<-1
	   mientras x<= n hacer
	   y<-x
	  mientras y<= n hacer
	         si notact[x]<notact[y] entonces
		   T= notact[x]
		    notact[x]=notact[y]
		    notact[y]= T
		    T= sec[x]
		    Sec[x]= sec[y]
		    sec[y]= T
		    fin _ si 
		    y<-y+1
	                fin _ mientras 
		   x=x+1
	fin _ mientras

		// publicar 
		     x<-1
		     mientras x<=2 hacer
		          escribir sec[x], notact[x]
		               x<-x+1
		    fin _ mientras

ALUMNO: CAICEDO CASTILLO SERGIO.