-
Lenguaje
Pascal
-
Descripción
Permita ingresar las notas finales de 10 alumnos. Calcular cuantas personas aprobaron, sabiendo que la nota mínima aprobatoria es 12, además mostrar el promedio de notas de los alumnos que aprobaron el curso (use estructuras repetitivas).
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
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
program AlumnosQueAprobaronElCurso;
uses crt;
var i, personas_aprobadas : integer;
var nota_final, promedio_de_notas : real;
begin
personas_aprobadas := 0;
promedio_de_notas := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de nota final: ');
readln (nota_final);
if nota_final>=12 then
begin
personas_aprobadas := personas_aprobadas+1;
promedio_de_notas := promedio_de_notas+nota_final;
end;
writeln;
end;
if personas_aprobadas = 0 then
promedio_de_notas := 0
else
promedio_de_notas := promedio_de_notas/personas_aprobadas;
writeln ('Valor de personas aprobadas: ', personas_aprobadas);
writeln ('Valor de promedio de notas: ', promedio_de_notas:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, personas_aprobadas : integer;
var nota_final, promedio_de_notas : real;
begin
personas_aprobadas := 0;
promedio_de_notas := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de nota final: ');
readln (nota_final);
if nota_final>=12 then
begin
personas_aprobadas := personas_aprobadas+1;
promedio_de_notas := promedio_de_notas+nota_final;
end;
writeln;
end;
if personas_aprobadas = 0 then
promedio_de_notas := 0
else
promedio_de_notas := promedio_de_notas/personas_aprobadas;
writeln ('Valor de personas aprobadas: ', personas_aprobadas);
writeln ('Valor de promedio de notas: ', promedio_de_notas:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.