Proceso sin_titulo
	definir i,n,mayores,menores Como Entero;
	definir num,suma,prom,dato Como Real;
	dimension num[100];

	Escribir "Ingrese tamaño del arreglo";
	Leer n;
	i<-1;
	suma<-0;
	mayores<-0;
	menores<-0;
	Repetir
		Escribir "Introduce el dato(",i,")";
		leer dato;
		num[i] <- dato;
		suma <-suma+dato;
		i<-i+1;
	Hasta Que i>n
	prom <- suma / n;
	i<-1;
	Repetir
		Si num[i]<prom Entonces
			menores<-menores+1;
		Sino
			mayores<-mayores+1;
		FinSi
		i<-i+1;
	Hasta Que i>n
	Escribir "Promedio: ",prom," Mayores al promedio: ",mayores," Menores al promedio: ",menores;
FinProceso