Algoritmo detarea
	Definir x,n Como Entero
	Definir suma,promedio,vector Como Real
	Escribir "Ingresa el total de numeros"
	leer n
	Dimension vector[n]
	suma = 0
	promedio = 0
	para x = 1 Hasta n Con Paso 1 Hacer
		Escribir "Ingresa un numero"
		leer vector(x)
		suma = suma + vector(x)
		promedio = suma / x
	FinPara
	Escribir "El promedio de los numeros es: ",promedio
	Escribir "Numeros mayores al promedio"
	para x = 1 Hasta n Con Paso 1 Hacer
		si vector(x) > promedio Entonces
			Escribir vector(x)
		FinSi
	FinPara
	Escribir "Numeros menores al promedio"
	para x = 1 Hasta n Con Paso 1 Hacer
		si vector(x) < promedio Entonces
			Escribir vector(x)
		FinSi
	FinPara
FinAlgoritmo