Encuesta a N personas en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Se realiza una encuesta a N personas, en la encuesta se pregunta por la edad, nombre, peso, sexo y el estado civil. Determine:
A. La edad promedio por sexo.
B. El porcentaje de hombres de 20 años que sean casados.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

Proceso EncuestaANPersonas

    b <- 0;

    promedio_hombres <- 0;

    promedio_mujeres <- 0;

    Escribir Sin Saltar "Ingresa el valor de n:";

    Leer n;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el nombre:";

        Leer nombre;

        Escribir Sin Saltar "Ingresa el valor de edad:";

        Leer edad;

        Escribir "Selecciona el valor de sexo.";

        Escribir "    1.- Mujer";

        Escribir "    2.- Hombre";

        Escribir Sin Saltar "    :";

        Repetir

            Leer sexo;

            Si sexo<1 O sexo>2 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que sexo>=1 Y sexo<=2;

        Escribir "Selecciona el valor de estado civil.";

        Escribir "    1.- Soltero";

        Escribir "    2.- Casado";

        Escribir Sin Saltar "    :";

        Repetir

            Leer estado_civil;

            Si estado_civil<1 O estado_civil>2 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que estado_civil>=1 Y estado_civil<=2;

        Si sexo = 1 Entonces

            promedio_mujeres <- promedio_mujeres+edad;

        SiNo

            promedio_hombres <- promedio_hombres+edad;

        FinSi

        Si sexo = 2 Y edad = 20 Y estado_civil = 2 Entonces

            b <- b+1;

        FinSi

        Escribir "Nombre: ", nombre;

        Escribir "";

    FinPara

    Si n = 0 Entonces

        b <- 0;

    SiNo

        b <- 100.0*b/n;

    FinSi

    Si n = 0 Entonces

        promedio_hombres <- 0;

    SiNo

        promedio_hombres <- promedio_hombres/n;

    FinSi

    Si n = 0 Entonces

        promedio_mujeres <- 0;

    SiNo

        promedio_mujeres <- promedio_mujeres/n;

    FinSi

    Escribir "Valor de b: ", b;

    Escribir "Valor de promedio hombres: ", promedio_hombres;

    Escribir "Valor de promedio mujeres: ", promedio_mujeres;

FinProceso