Estadística de 10 números

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 10 números.

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

program Estadistica10;

uses crt;

const calificacion_aprobatoria = 7.0;

const n = 10;

var elemento, mayor, menor, promedio, suma : real;

var porcentaje_aprobados, porcentaje_reprobados : real;

var i, posicion_menor, posicion_mayor, aprobados, reprobados : integer;

begin

    aprobados := 0;

    mayor := 0;

    menor := 0;

    porcentaje_aprobados := 0;

    porcentaje_reprobados := 0;

    posicion_mayor := 0;

    posicion_menor := 0;

    promedio := 0;

    reprobados := 0;

    suma := 0;

    for i := 1 to n do

        begin

            write ('Ingrese el valor del elemento ', i, ': ');

            readln (elemento);

            if (i=1) or (elemento<menor) then

                begin

                    menor := elemento;

                    posicion_menor := i;

                end;

            if (i=1) or (elemento>mayor) then

                begin

                    mayor := elemento;

                    posicion_mayor := i;

                end;

            if elemento < calificacion_aprobatoria then

                inc (reprobados)

            else

                inc (aprobados);

            suma := suma + elemento;

        end;

    promedio := suma / n;

    porcentaje_aprobados  := 100.0 * aprobados  / n;

    porcentaje_reprobados := 100.0 * reprobados / n;

    writeln;

    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.