7. Ingresar una lista de 25 notas y determinar cuantas estas fueron aprobadas.

Inicio
	Nota, Aprobado « 0, i « 0 :entero
	Para (i = 1; i<= 25; i++)
		Repetir
			Leer Nota
		Hasta (Nota <= 20) y ( Nota > 10)
		Si(Nota > 10) entonces
			Hacer Aprobado « Aprobado + 1
		Fin_Si
	Fin_Para
	Mostrar "Total de aprobados",Aprobado
Fin

Autor:
BARCO GONZÁLES RINA INGRID