Matrícula de 8 estudiantes en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Entrar por pantalla los datos de 8 estudiantes: código, nombre, edad, cal1, cal2, cal3, estrato (puede tener un valor de 1-6), valor de matrícula. Se pide:
a) Total de estudiantes de estrato 3 con edad mayor a 19 años que aprobaron el curso.
b) Total de estudiantes de estrato cinco (5) o estrato 6 menores de 18 años que reprobaron el curso.
c) Total general de matrículas.

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

Proceso MatriculaDe8Estudiantes

    a <- 0;

    b <- 0;

    c <- 0;

    Para i<-1 Hasta 8 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el codigo:";

        Leer codigo;

        Escribir Sin Saltar "Ingresa el nombre:";

        Leer nombre;

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

        Leer cal1;

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

        Leer cal2;

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

        Leer cal3;

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

        Leer edad;

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

        Leer estrato;

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

        Leer matricula;

        promedio <- (cal1+cal2+cal3)/3;

        Si estrato = 3 Y edad>19 Y promedio>=7 Entonces

            a <- a+1;

        FinSi

        Si (estrato = 5 O estrato = 6) Y edad<18 Y promedio<7 Entonces

            b <- b+1;

        FinSi

        c <- c+matricula;

        Escribir "Codigo: ", codigo;

        Escribir "Nombre: ", nombre;

        Escribir "Valor de promedio: ", promedio;

        Escribir "";

    FinPara

    Escribir "Valor de a: ", a;

    Escribir "Valor de b: ", b;

    Escribir "Valor de c: ", c;

FinProceso