//promedio de numeros pares en pseint
Algoritmo detarea
	Definir c Como Entero
	Definir suma,n Como Real
	n = 1
	suma = 0
	c = 0
	Mientras n <> 0 Hacer
		Escribir "Ingresa un numero"
		leer n
		si n <> 0 Entonces
			si n mod 2 == 0 Entonces
				suma = suma + n
				c = c + 1
			FinSi
		FinSi
	FinMientras
	Escribir "La suma de los numeros pares es: ",suma
	Escribir "Numeros pares es: ",c
	Escribir "El promedio de numeros pares es: ",suma/c
FinAlgoritmo


//Promedio de numeros impares
Algoritmo detarea
	Definir c Como Entero
	Definir suma,n Como Real
	n = 1
	suma = 0
	c = 0
	Mientras n <> 0 Hacer
		Escribir "Ingresa un numero"
		leer n
		si n <> 0 Entonces
			si n mod 2 == 1 Entonces
				suma = suma + n
				c = c + 1
			FinSi
		FinSi
	FinMientras
	Escribir "La suma de los numeros impares es: ",suma
	Escribir "Numeros impares es: ",c
	Escribir "El promedio de numeros impares es: ",suma/c
FinAlgoritmo


//Promedio de numeros pares e impares 
Algoritmo detarea
	Definir pares,impares Como Entero
	Definir n,suma_impares,suma_pares Como Real
	n = 1
	suma_impares = 0
	impares = 0
	suma_pares = 0
	pares = 0
	Mientras n <> 0 Hacer
		Escribir "Ingresa un numero"
		leer n
		si n <> 0 Entonces
			si n mod 2 == 0 Entonces
				suma_pares = suma_pares + n
				pares = pares + 1
			SiNo
				suma_impares = suma_impares + n
				impares = impares + 1
			FinSi
		FinSi
	FinMientras
	Escribir "La suma de los numeros pares es: ",suma_pares
	Escribir "Numeros pares: ",pares
	Escribir "El promedio de numeros pares es: ",suma_pares/pares
	Escribir "La suma de los numeros impares es: ",suma_impares
	Escribir "Numeros impares: ",impares
	Escribir "El promedio de numeros impares es: ",suma_impares/impares
FinAlgoritmo