PROGRAMA 1. ESTRUCTURAS REPETITIVAS

En un evento al que asistieron unas 50 personas y se presentaron 15 bandas; cinco de cada estilo POP, ROCK y LATINO 
se le pregunto al entrar a cada espectador:
su edad
su género y por cada estilo de banda cuantas bandas les gustaban. 

Se sabe que cuando a una persona prefiere un género a este le gustan más bandas que de los otros dos; 
si hay empates prefiere ambos, pero si todos son iguales no hay preferencia.

Elabore un pequeño programa con el fin de procesar esta información y asi poder saber:

El total de personas que prefieren cada género en particular POP, ROCK y LATINO e indique que porcentaje representa.
Indique el promedio general de bandas que gustan a cada persona, e indique por cada género su promedio.
Total de adolescentes que le gusta el ROCK discriminado por sexo.
El género que más le gusta a las mujeres mayores de edad.
Total de bandas que le gustaron independiente del genero
EXTRA: Indique cuanto aumento o disminuyo en porcentaje el gusto por la música POP entre niños y adolescentes.

Inicio
	ContadorPop = 0
	ContadorRock = 0
	ContadorLatino = 0
	ContadorAdolescentesRockMujeres = 0
	ContadorAdolescentesRockHombres = 0
	ContadorMujeresMayoresedadPop = 0
	ContadorMujeresMayoresedadLatino = 0
	ContadorMujeresMayoresedadRock = 0
	AcumuladorBandas = 0
	PromedioLatino = 0
	PromedioPop = 0
	PromedioRock = 0
	Sexo = ""
	Edad = 0
	Genero = ""
	NumeroBandas = 0
	
	Para i = 1 hasta 50
		Imprimir "Ingrese Edad persona", i
		Leer Edad
		
		Imprimir "Ingrese Sexo persona", i
		Leer Sexo
		
		Imprimir "Ingrese Genero (ROCK, POP, LATINO) que le gusta a la persona", i
		Leer Genero
		
		Imprimir "Ingrese Numero Bandas que le gustan a la persona", i
		Leer NumeroBandas
		
		AcumuladorBandas = AcumuladorBandas + NumeroBandas
		
		Si Genero = "POP"
			ContadorPop = ContadorPop + 1
			PromedioPop = (NumeroBandas / 5) * 100
			
			Si Sexo = "F" y Edad >= 18
				ContadorMujeresMayoresedadPop = ContadorMujeresMayoresedadPop + 1
			Fin Si	
		Fin Si	

		Si Genero = "Rock"
			ContadorRock = ContadorRock + 1
			PromedioRock = (NumeroBandas / 5) * 100
			
			Si Edad > = 12 y Edad < 18
				Si Sexo = "M"
					ContadorAdolescentesRockHombres = ContadorAdolescentesRockHombres + 1
				Fin Si

				Si Sexo = "F"
					ContadorAdolescentesRockMujeres = ContadorAdolescentesRockMujeres + 1
				Fin Si
			Sino
				Si Sexo = "F"
					ContadorMujeresMayoresedadRock = ContadorMujeresMayoresedadRock + 1
				Fin Si	
			Fin Si	

			Fin Si	
		Fin Si	

		Si Genero = "LATINO"
			ContadorLatino = ContadorLatino + 1
			PromedioLatino = (NumeroBandas / 5) * 100

			Si Sexo = "F" y Edad >= 18
				ContadorMujeresMayoresedadLatino = ContadorMujeresMayoresedadLatino + 1
			Fin Si	
		Fin Si
		
		Imprimir "Promedio General de Bandas que le gustan a la Persona", i
		Imprimir (NumeroBandas / 15) * 100

		Imprimir "Promedio bandas POP", PromedioPop
		Imprimir "Promedio bandas ROCK", PromedioRock
		Imprimir "Promedio bandas LATINO", PromedioLatino
		
	Fin Para
	
	Si ContadorMujeresMayoresedadPop > ContadorMujeresMayoresedadRock y ContadorMujeresMayoresedadPop > ContadorMujeresMayoresedadLatino
		Imprimir "El genero que más le gusta a las mujeres mayores de edad es el POP"
	Fin si
	
	Si ContadorMujeresMayoresedadRock > ContadorMujeresMayoresedadPop y ContadorMujeresMayoresedadRock > ContadorMujeresMayoresedadLatino
		Imprimir "El genero que más le gusta a las mujeres mayores de edad es el ROCK"
	Fin si
	
	Si ContadorMujeresMayoresedadLatino > ContadorMujeresMayoresedadPop y ContadorMujeresMayoresedadLatino > ContadorMujeresMayoresedadPop
		Imprimir "El genero que más le gusta a las mujeres mayores de edad es el LATINO"
	Fin si
	
	Imprimir "Total POP", ContadorPop
	Imprimir "Promedio", (ContadorPop / 50) * 100
	
	Imprimir "Total ROCK", ContadorRock
	Imprimir "Promedio", (ContadorRock / 50) * 100
	
	Imprimir "Total LATINO", ContadorLatino
	Imprimir "Promedio", (ContadorLatino / 50) * 100
	
	Imprimir "Total de adolescentes Rock Hombres", ContadorAdolescentesRockHombres
	Imprimir "Total de adolescentes Rock Mujeres", ContadorAdolescentesRockMujeres
	Imprimir "Total de bandas que gustaron", AcumuladorBandas
Fin