-
Lenguaje
Pascal
-
Descripción
Determinar el promedio de las edades de 50 personas, solo si estas son mayores de edad, en caso de no ser mayor de edad, se debe indicar cuantos no cumplen con esa condición, además del promedio de las edades de todo el grupo.
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
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
program EdadesDe50Personas;
uses crt;
var edad, i, mayores_de_edad, menores_de_edad : integer;
var promedio_de_mayores, promedio_de_todos : real;
begin
mayores_de_edad := 0;
menores_de_edad := 0;
promedio_de_mayores := 0;
promedio_de_todos := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
if edad<18 then
begin
menores_de_edad := menores_de_edad+1;
promedio_de_mayores := promedio_de_mayores+edad;
end
else
begin
mayores_de_edad := mayores_de_edad+1;
end;
promedio_de_todos := promedio_de_todos+edad;
writeln;
end;
if mayores_de_edad = 0 then
promedio_de_mayores := 0
else
promedio_de_mayores := promedio_de_mayores/mayores_de_edad;
promedio_de_todos := promedio_de_todos/50;
writeln ('Valor de mayores de edad: ', mayores_de_edad);
writeln ('Valor de menores de edad: ', menores_de_edad);
writeln ('Valor de promedio de mayores: ', promedio_de_mayores:0:6);
writeln ('Valor de promedio de todos: ', promedio_de_todos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var edad, i, mayores_de_edad, menores_de_edad : integer;
var promedio_de_mayores, promedio_de_todos : real;
begin
mayores_de_edad := 0;
menores_de_edad := 0;
promedio_de_mayores := 0;
promedio_de_todos := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
if edad<18 then
begin
menores_de_edad := menores_de_edad+1;
promedio_de_mayores := promedio_de_mayores+edad;
end
else
begin
mayores_de_edad := mayores_de_edad+1;
end;
promedio_de_todos := promedio_de_todos+edad;
writeln;
end;
if mayores_de_edad = 0 then
promedio_de_mayores := 0
else
promedio_de_mayores := promedio_de_mayores/mayores_de_edad;
promedio_de_todos := promedio_de_todos/50;
writeln ('Valor de mayores de edad: ', mayores_de_edad);
writeln ('Valor de menores de edad: ', menores_de_edad);
writeln ('Valor de promedio de mayores: ', promedio_de_mayores:0:6);
writeln ('Valor de promedio de todos: ', promedio_de_todos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.