Edades de 50 personas en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Determinar el promedio de las edades de 50 personas, solo si estas son mayores de edad, en caso de no ser mayor de edad, se debe indicar cuantos no cumplen con esa condición, además del promedio de las edades de todo el grupo.

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

Proceso EdadesDe50Personas

    mayores_de_edad <- 0;

    menores_de_edad <- 0;

    promedio_de_mayores <- 0;

    promedio_de_todos <- 0;

    Para i<-1 Hasta 50 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

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

        Leer edad;

        Si edad<18 Entonces

            menores_de_edad <- menores_de_edad+1;

            promedio_de_mayores <- promedio_de_mayores+edad;

        SiNo

            mayores_de_edad <- mayores_de_edad+1;

        FinSi

        promedio_de_todos <- promedio_de_todos+edad;

        Escribir "";

    FinPara

    Si mayores_de_edad = 0 Entonces

        promedio_de_mayores <- 0;

    SiNo

        promedio_de_mayores <- promedio_de_mayores/mayores_de_edad;

    FinSi

    promedio_de_todos <- promedio_de_todos/50;

    Escribir "Valor de mayores de edad: ", mayores_de_edad;

    Escribir "Valor de menores de edad: ", menores_de_edad;

    Escribir "Valor de promedio de mayores: ", promedio_de_mayores;

    Escribir "Valor de promedio de todos: ", promedio_de_todos;

FinProceso