-
Lenguaje
Pascal
-
Descripción
Obtiene el menor, mayor, suma, promedio posición del menor, posición del mayor, cantidad de aprobados, porcentaje de aprobados, cantidad de reprobados y porcentaje de reprobados de una serie de números positivos.
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
program EstadisticaPositivos;
uses crt;
const calificacion_aprobatoria = 7.0;
var elemento, mayor, menor, promedio, suma : real;
var porcentaje_aprobados, porcentaje_reprobados : real;
var n, posicion_menor, posicion_mayor, aprobados, reprobados : integer;
begin
aprobados := 0;
mayor := 0;
menor := 0;
n := 1;
porcentaje_aprobados := 0;
porcentaje_reprobados := 0;
posicion_mayor := 0;
posicion_menor := 0;
promedio := 0;
reprobados := 0;
suma := 0;
repeat
write ('Ingrese el valor del elemento ', n, ': ');
readln (elemento);
if elemento >= 0 then
begin
if (n=1) or (elemento<menor) then
begin
menor := elemento;
posicion_menor := n;
end;
if (n=1) or (elemento>mayor) then
begin
mayor := elemento;
posicion_mayor := n;
end;
if elemento < calificacion_aprobatoria then
inc (reprobados)
else
inc (aprobados);
suma := suma + elemento;
inc (n);
end;
until elemento<0;
n := n - 1;
if n > 0 then
begin
promedio := suma / n;
porcentaje_aprobados := 100.0 * aprobados / n;
porcentaje_reprobados := 100.0 * reprobados / n;
end;
writeln;
writeln ('Elementos : ' , n);
writeln ('Menor : ' , menor:0:6);
writeln ('Posici'#162'n del menor: ', posicion_menor);
writeln ('Mayor : ' , mayor:0:6);
writeln ('Posici'#162'n del mayor: ', posicion_mayor);
writeln ('Suma : ' , suma:0:6);
writeln ('Promedio : ' , promedio:0:6);
writeln ('Media aritm'#130'tica : ', promedio:0:6);
writeln ('Aprobados : ', aprobados);
writeln ('Porcen. aprobados : ', porcentaje_aprobados:0:2 , '%');
writeln ('Reprobados : ', reprobados);
writeln ('Porcen. reprobados: ', porcentaje_reprobados:0:2, '%');
write (#10#13'Presione una tecla para terminar . . . ');
readkey;
end.
uses crt;
const calificacion_aprobatoria = 7.0;
var elemento, mayor, menor, promedio, suma : real;
var porcentaje_aprobados, porcentaje_reprobados : real;
var n, posicion_menor, posicion_mayor, aprobados, reprobados : integer;
begin
aprobados := 0;
mayor := 0;
menor := 0;
n := 1;
porcentaje_aprobados := 0;
porcentaje_reprobados := 0;
posicion_mayor := 0;
posicion_menor := 0;
promedio := 0;
reprobados := 0;
suma := 0;
repeat
write ('Ingrese el valor del elemento ', n, ': ');
readln (elemento);
if elemento >= 0 then
begin
if (n=1) or (elemento<menor) then
begin
menor := elemento;
posicion_menor := n;
end;
if (n=1) or (elemento>mayor) then
begin
mayor := elemento;
posicion_mayor := n;
end;
if elemento < calificacion_aprobatoria then
inc (reprobados)
else
inc (aprobados);
suma := suma + elemento;
inc (n);
end;
until elemento<0;
n := n - 1;
if n > 0 then
begin
promedio := suma / n;
porcentaje_aprobados := 100.0 * aprobados / n;
porcentaje_reprobados := 100.0 * reprobados / n;
end;
writeln;
writeln ('Elementos : ' , n);
writeln ('Menor : ' , menor:0:6);
writeln ('Posici'#162'n del menor: ', posicion_menor);
writeln ('Mayor : ' , mayor:0:6);
writeln ('Posici'#162'n del mayor: ', posicion_mayor);
writeln ('Suma : ' , suma:0:6);
writeln ('Promedio : ' , promedio:0:6);
writeln ('Media aritm'#130'tica : ', promedio:0:6);
writeln ('Aprobados : ', aprobados);
writeln ('Porcen. aprobados : ', porcentaje_aprobados:0:2 , '%');
writeln ('Reprobados : ', reprobados);
writeln ('Porcen. reprobados: ', porcentaje_reprobados:0:2, '%');
write (#10#13'Presione una tecla para terminar . . . ');
readkey;
end.