-
Lenguaje
Pascal
-
Descripción
Ingresar los sueldos de N de empleados al final debe mostrar el total de todos los sueldos, en cuantos empleados tiene buen sueldo y cuantos no tienen buen sueldo se considera de 1500 en adelante.
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
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
program EmpleadosConBuenSueldo;
uses crt;
var empleados_con_buen_sueldo, empleados_con_mal_sueldo, i, n : integer;
var sueldo, total_de_sueldos : real;
begin
empleados_con_buen_sueldo := 0;
empleados_con_mal_sueldo := 0;
total_de_sueldos := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
total_de_sueldos := total_de_sueldos+sueldo;
if 1500>=sueldo then
begin
empleados_con_buen_sueldo := empleados_con_buen_sueldo+1;
end
else
begin
empleados_con_mal_sueldo := empleados_con_mal_sueldo+1;
end;
writeln;
end;
writeln ('Valor de empleados con buen sueldo: ', empleados_con_buen_sueldo);
writeln ('Valor de empleados con mal sueldo: ', empleados_con_mal_sueldo);
writeln ('Valor de total de sueldos: ', total_de_sueldos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var empleados_con_buen_sueldo, empleados_con_mal_sueldo, i, n : integer;
var sueldo, total_de_sueldos : real;
begin
empleados_con_buen_sueldo := 0;
empleados_con_mal_sueldo := 0;
total_de_sueldos := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
total_de_sueldos := total_de_sueldos+sueldo;
if 1500>=sueldo then
begin
empleados_con_buen_sueldo := empleados_con_buen_sueldo+1;
end
else
begin
empleados_con_mal_sueldo := empleados_con_mal_sueldo+1;
end;
writeln;
end;
writeln ('Valor de empleados con buen sueldo: ', empleados_con_buen_sueldo);
writeln ('Valor de empleados con mal sueldo: ', empleados_con_mal_sueldo);
writeln ('Valor de total de sueldos: ', total_de_sueldos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.