Encuesta de grado de instrucción y edad en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Se ha seleccionado N personas para realizar una encuesta, en un proceso repetitivo se ingresa el grado de instrucción (IP-Instrucción Primaria, IS- Instrucción Superior, SS- Educación Superior) y la edad de cada persona. Desarrollar el algoritmo que muestre lo siguiente:
a) El promedio de edades de todas las personas.
b) La mayor edad.
c) Cantidad de personas con instrucción Primaria.
d) Cantidad de personas con instrucción Secundaria.
e) Cantidad de personas con instrucción Superior.

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

Proceso EncuestaDeGradoDeInstruccionYEdad

    mayor_edad <- 0;

    personas_con_primaria <- 0;

    personas_con_secundaria <- 0;

    personas_con_superior <- 0;

    promedio_de_edades <- 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 grado de instruccion.";

        Escribir "    1.- IP - Instrucción Primaria";

        Escribir "    2.- IS - Instrucción Superior";

        Escribir "    3.- SS - Educación Superior";

        Escribir Sin Saltar "    :";

        Repetir

            Leer grado_de_instruccion;

            Si grado_de_instruccion<1 O grado_de_instruccion>3 Entonces

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

            FinSi

        Hasta Que grado_de_instruccion>=1 Y grado_de_instruccion<=3;

        promedio_de_edades <- promedio_de_edades+edad;

        Si grado_de_instruccion = 1 Entonces

            personas_con_primaria <- personas_con_primaria+1;

        FinSi

        Si grado_de_instruccion = 2 Entonces

            personas_con_secundaria <- personas_con_secundaria+1;

        FinSi

        Si grado_de_instruccion = 3 Entonces

            personas_con_superior <- personas_con_superior+1;

        FinSi

        Si i = 1 O edad<mayor_edad Entonces

            mayor_edad <- edad;

        FinSi

        Escribir "";

    FinPara

    Si n = 0 Entonces

        promedio_de_edades <- 0;

    SiNo

        promedio_de_edades <- promedio_de_edades/n;

    FinSi

    Escribir "Valor de mayor edad: ", mayor_edad;

    Escribir "Valor de personas con primaria: ", personas_con_primaria;

    Escribir "Valor de personas con secundaria: ", personas_con_secundaria;

    Escribir "Valor de personas con superior: ", personas_con_superior;

    Escribir "Valor de promedio de edades: ", promedio_de_edades;

FinProceso