Algoritmo detarea
	Definir x,c,vector Como Entero
	Definir suma,promedio Como Real
	Dimension vector[100]
	para x = 1 Hasta 100 Con Paso 1 Hacer
		Escribir "Ingresa un numero"
		leer vector(x)
	FinPara
	suma = 0
	para x = 1 Hasta 100 Con Paso 1 Hacer
		suma = suma + vector(x)
	FinPara
	promedio = suma / 100
	Escribir "El promedio de calificaciones es: ",promedio
	c = 0
	para x = 1 Hasta 100 Con Paso 1 Hacer
		si vector(x) > promedio Entonces
			Escribir vector(x)
			c = c + 1
		FinSi
	FinPara
	Escribir "Calificaciones por arriba del promedio es: ",c
FinAlgoritmo