-
Lenguaje
Pascal
-
Descripción
El asesor de Algoritmia y Programación desea saber el promedio de los 40 alumnos inscritos, realiza un programa para capturar las 40 calificaciones de los alumnos, y una vez capturadas, despliega el promedio general del grupo, así como la calificación más baja de todo el grupo.
1. Realiza el programa con las 40 calificaciones.
2. Despliega el promedio general.
3. Despliega la calificación más baja.
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 PromedioDe40Alumnos;
uses crt;
var i : integer;
var calificacion, calificacion_mas_baja, promedio_general : real;
begin
promedio_general := 0;
calificacion_mas_baja := 0;
for i:=1 to 40 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
promedio_general := promedio_general+calificacion;
if (i=1) or (calificacion_mas_baja>calificacion) then
begin
calificacion_mas_baja := calificacion;
end;
writeln;
end;
promedio_general := promedio_general/40;
writeln ('Valor de promedio general: ', promedio_general:0:6);
writeln ('Valor de calificacion mas baja: ', calificacion_mas_baja:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var calificacion, calificacion_mas_baja, promedio_general : real;
begin
promedio_general := 0;
calificacion_mas_baja := 0;
for i:=1 to 40 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
promedio_general := promedio_general+calificacion;
if (i=1) or (calificacion_mas_baja>calificacion) then
begin
calificacion_mas_baja := calificacion;
end;
writeln;
end;
promedio_general := promedio_general/40;
writeln ('Valor de promedio general: ', promedio_general:0:6);
writeln ('Valor de calificacion mas baja: ', calificacion_mas_baja:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.