Área, género y sueldo de N empleados en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una empresa guarda los datos de N empleados, y en un proceso repetitivo se ingresa la información de: área de trabajo (Sistemas o Contabilidad), sexo y sueldo. Se pide mostrar:
a) Cantidad de mujeres.
b) Cantidad de empleados del área de Sistemas.
c) Cantidad de empleados del área de Contabilidad.
d) La suma de sueldos.

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

Proceso AreaGeneroYSueldoDeNEmpleados

    cantidad_mujeres <- 0;

    empleados_de_contabilidad <- 0;

    empleados_de_sistemas <- 0;

    suma_de_sueldos <- 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 sueldo:";

        Leer sueldo;

        Escribir "Selecciona el valor de area de trabajo.";

        Escribir "    1.- Sistemas";

        Escribir "    2.- Contabilidad";

        Escribir Sin Saltar "    :";

        Repetir

            Leer area_de_trabajo;

            Si area_de_trabajo<1 O area_de_trabajo>2 Entonces

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

            FinSi

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

        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;

        Si area_de_trabajo = 1 Entonces

            empleados_de_sistemas <- empleados_de_sistemas+1;

        SiNo

            empleados_de_contabilidad <- empleados_de_contabilidad+1;

        FinSi

        suma_de_sueldos <- suma_de_sueldos+sueldo;

        Si sexo = 1 Entonces

            cantidad_mujeres <- cantidad_mujeres+1;

        FinSi

        Escribir "";

    FinPara

    Escribir "Valor de cantidad mujeres: ", cantidad_mujeres;

    Escribir "Valor de empleados de contabilidad: ", empleados_de_contabilidad;

    Escribir "Valor de empleados de sistemas: ", empleados_de_sistemas;

    Escribir "Valor de suma de sueldos: ", suma_de_sueldos;

FinProceso