Algoritmo detarea
	Definir vector,a,x,c Como Entero
	Definir n,suma,promedio Como Real
	Dimension vector[50]
	para x = 1 Hasta 50 Con Paso 1 Hacer
		Escribir "Ingresa un numero"
		vector(x) = azar(10)+1
		Escribir x
	FinPara
	suma = 0
	Para a = 1 Hasta 50 Con Paso 1 Hacer
		suma = suma + vector(a)
	FinPara
	promedio = suma / 50
	
	para x = 1 Hasta 50 Con Paso 1 Hacer
		si vector(x) > promedio Entonces
			c = c + 1
			Escribir vector(x)
		FinSi
	FinPara
	Escribir "El promedio de los 50 elementos es: ",promedio
	Escribir "EL total de numeros mayores al promedio es: ",c
FinAlgoritmo