Responder
como puedo arreglar un programa que calcule horas trabajadas de 4 empleados, 5 dptos y 10 sucursale
estará bien así..?
Const
i= ;
Type
Horastrabajadas= array (horas) of Read;
Var
Horas: Horastrabajadas;
S.Mg. P, C: Real
Begin
For C.=1 to i do
[Repeat
Write (‘ingresar horas de 4 empleados’);
Write (‘Ingresar horas de 5 departamentos’);
Write (‘Ingresar horas de 10 sucursales’);
Read (‘Horas’);
[Until Horas
S:= S + horas
ICFC: 1 Then
My:= Horas
Else
If Horas > My Then
My:= Horas
Else End If
Write (C:3);
P:= S/i
Write (‘ horas trabajadas es:’, My);
Write (‘El promedio de las horas es:’, P);
End.
Const
i= ;
Type
Horastrabajadas= array (horas) of Read;
Var
Horas: Horastrabajadas;
S.Mg. P, C: Real
Begin
For C.=1 to i do
[Repeat
Write (‘ingresar horas de 4 empleados’);
Write (‘Ingresar horas de 5 departamentos’);
Write (‘Ingresar horas de 10 sucursales’);
Read (‘Horas’);
[Until Horas
S:= S + horas
ICFC: 1 Then
My:= Horas
Else
If Horas > My Then
My:= Horas
Else End If
Write (C:3);
P:= S/i
Write (‘ horas trabajadas es:’, My);
Write (‘El promedio de las horas es:’, P);
End.