Edad y sexo de N estudiantes en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Desarrolle un algoritmo que permita ingresar la edad y sexo de N estudiantes. Debe mostrar:
- Número de estudiantes de sexo masculino y femenino en el aula.
- Porcentaje de estudiantes de sexo masculino y femenino en el aula.
- Número total de estudiantes en el aula.
- Edad promedio de varones y mujeres.
- Edad promedio general.

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
63
64
65
66
67
68
69
70

Proceso EdadYSexoDeNEstudiantes

    mujeres <- 0;

    varones <- 0;

    porcentaje_mujeres <- 0;

    porcentaje_varones <- 0;

    promedio_general <- 0;

    promedio_mujeres <- 0;

    promedio_varones <- 0;

    total_estudiantes <- 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 valor de edad:";

        Leer edad;

        Escribir "Selecciona el valor de sexo.";

        Escribir "    1.- masculino";

        Escribir "    2.- femenino";

        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;

        Si sexo = 1 Entonces

            varones <- varones+1;

            promedio_varones <- promedio_varones+edad;

        SiNo

            mujeres <- mujeres+1;

            promedio_mujeres <- promedio_mujeres+edad;

        FinSi

        promedio_general <- promedio_general+edad;

        Escribir "";

    FinPara

    Si n = 0 Entonces

        porcentaje_mujeres <- 0;

    SiNo

        porcentaje_mujeres <- 100.0*mujeres/n;

    FinSi

    Si n = 0 Entonces

        porcentaje_varones <- 0;

    SiNo

        porcentaje_varones <- 100.0*varones/n;

    FinSi

    Si n = 0 Entonces

        promedio_general <- 0;

    SiNo

        promedio_general <- promedio_general/n;

    FinSi

    Si mujeres = 0 Entonces

        promedio_mujeres <- 0;

    SiNo

        promedio_mujeres <- promedio_mujeres/mujeres;

    FinSi

    Si varones = 0 Entonces

        promedio_varones <- 0;

    SiNo

        promedio_varones <- promedio_varones/varones;

    FinSi

    total_estudiantes <- n;

    Escribir "Valor de mujeres: ", mujeres;

    Escribir "Valor de varones: ", varones;

    Escribir "Valor de porcentaje mujeres: ", porcentaje_mujeres;

    Escribir "Valor de porcentaje varones: ", porcentaje_varones;

    Escribir "Valor de promedio general: ", promedio_general;

    Escribir "Valor de promedio mujeres: ", promedio_mujeres;

    Escribir "Valor de promedio varones: ", promedio_varones;

    Escribir "Valor de total estudiantes: ", total_estudiantes;

FinProceso