Algoritmo arreglo_edades
	Dimensionar edades[10]
	Definir i, suma, edadBus, cont Como Entero
	Definir media Como Real
	
	//1-Leer Datos y Almacenarlos 
	Para i<-1 Hasta 10 Hacer
		Escribir 'Entre Edad número: ', i
		Leer edades[i]
	FinPara
	
	//2-Obtener el promedio
	suma = 0;media=0;
	Para i<-1 Hasta 10 Hacer
		suma = suma + edades[i]
	FinPara
	media = suma/10
	Escribir "El promedio de edades es: ",media
	
	//3-Buscar Edad y Promediar
	suma = 0;cont = 0;media=0;
	Escribir "Entre edad a buscar: "
	leer edadBus	
	para i =1 Hasta 10 Hacer
		si edades[i]<=edadBus Entonces
			suma = suma + edades[i]		
			cont = cont + 1
		FinSi
	FinPara
	media = suma/cont
	Escribir "El promedio de edades menores o iguales es: ",media
	
	//4-Numero de Personas Edad dada
	cont = 0;
	Escribir "Entre edad a buscar: "
	leer edadBus
	para i =1 Hasta 10 Hacer
		si edadBus==edades[i]  Entonces
			cont = cont + 1;		
		FinSi
	FinPara
	Escribir "Número de personas edad dada: ",cont	
	
FinAlgoritmo