-
Lenguaje
Pascal
-
Descripción
Leer el sueldo de 10 trabajadores. Calcular el promedio de los sueldos. Además, reportar a cuanto asciende el sueldo mas alto.
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
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
program SueldoDe10Trabajadores;
uses crt;
var i : integer;
var promedio, sueldo, sueldo_mas_alto : real;
begin
promedio := 0;
sueldo_mas_alto := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
promedio := promedio+sueldo;
if (i=1) or (sueldo_mas_alto<sueldo) then
begin
sueldo_mas_alto := sueldo;
end;
writeln;
end;
promedio := promedio/10;
writeln ('Valor de promedio: ', promedio:0:6);
writeln ('Valor de sueldo mas alto: ', sueldo_mas_alto:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var promedio, sueldo, sueldo_mas_alto : real;
begin
promedio := 0;
sueldo_mas_alto := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
promedio := promedio+sueldo;
if (i=1) or (sueldo_mas_alto<sueldo) then
begin
sueldo_mas_alto := sueldo;
end;
writeln;
end;
promedio := promedio/10;
writeln ('Valor de promedio: ', promedio:0:6);
writeln ('Valor de sueldo mas alto: ', sueldo_mas_alto:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.