Respuesta:
Algoritmo ParesImpares10Números
Definir c, num, pa, imp Como Entero
pa = 0
imp = 0
Para c = 1 Hasta 10 Hacer
Escribir 'Número ',c
Leer num
Si num Mod 2 = 0 Entonces
pa = pa + 1
SiNo
imp = imp + 1
FinSi
FinPara
Escribir 'Números Pares: ',pa
Escribir 'Números Impares: ',imp
FinAlgoritmo
¡¡Espero Te Sirva, Saludos!!
