Promedio de sueldos en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

En una empresa trabajan N empleados cuyos sueldos se pagan al final del mes. Lea los sueldos que cobra cada empleado e informe:
a. Cuántos empleados cobran menos de $300, cuántos entre $300 y $700 y cuántos cobran más de $700.
b. El importe que gasta la empresa en sueldos al personal.
c. El promedio de sueldos.
d. El mayor y menor sueldo.

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

Proceso PromedioDeSueldos

    entre_300y700 <- 0;

    mas_de_700 <- 0;

    menos_de_300 <- 0;

    gasto_de_la_empresa <- 0;

    mayor <- 0;

    menor <- 0;

    promedio <- 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;

        Si sueldo<300 Entonces

            menos_de_300 <- menos_de_300+1;

        FinSi

        Si sueldo>=300 Y sueldo<=700 Entonces

            entre_300y700 <- entre_300y700+1;

        FinSi

        Si sueldo>700 Entonces

            mas_de_700 <- mas_de_700+1;

        FinSi

        gasto_de_la_empresa <- gasto_de_la_empresa+sueldo;

        Si i = 1 O mayor<sueldo Entonces

            mayor <- sueldo;

        FinSi

        Si i = 1 O menor>sueldo Entonces

            menor <- sueldo;

        FinSi

        Escribir "";

    FinPara

    Si n = 0 Entonces

        promedio <- 0;

    SiNo

        promedio <- gasto_de_la_empresa/n;

    FinSi

    Escribir "Valor de entre 300y700: ", entre_300y700;

    Escribir "Valor de mas de 700: ", mas_de_700;

    Escribir "Valor de menos de 300: ", menos_de_300;

    Escribir "Valor de gasto de la empresa: ", gasto_de_la_empresa;

    Escribir "Valor de mayor: ", mayor;

    Escribir "Valor de menor: ", menor;

    Escribir "Valor de promedio: ", promedio;

FinProceso