Estadística de 10 números

Lenguaje

PSeInt (Pseudocódigo)
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

Algoritmo Estadistica10

    calificacion_aprobatoria <- 7;

    n <- 10;

    aprobados <- 0;

    maximo <- 0;

    minimo <- 0;

    porcentaje_aprobados <- 0;

    porcentaje_reprobados <- 0;

    posicion_mayor <- 0;

    posicion_menor <- 0;

    promedio <- 0;

    reprobados <- 0;

    suma <- 0;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir Sin Saltar "Ingrese el valor del elemento ", i, ":";

        Leer elemento;

        Si i=1 O elemento<minimo Entonces

            minimo <- elemento;

            posicion_menor <- i;

        FinSi

        Si i=1 O elemento>maximo Entonces

            maximo <- elemento;

            posicion_mayor <- i;

        FinSi

        Si elemento < calificacion_aprobatoria Entonces

            reprobados <- reprobados + 1;

        Sino

            aprobados <- aprobados + 1;

        FinSi

        suma <- suma+elemento;

    FinPara

    promedio <- suma/n;

    porcentaje_aprobados  <- 100.0 * aprobados  / n;

    porcentaje_reprobados <- 100.0 * reprobados / n;

    Escribir "";

    Escribir "Menor             : ", minimo;

    Escribir "Posición del menor: ", posicion_menor;

    Escribir "Mayor             : ", maximo;

    Escribir "Posición del mayor: ", posicion_mayor;

    Escribir "Suma              : ", suma;

    Escribir "Promedio          : ", promedio;

    Escribir "Media aritmética  : ", promedio;

    Escribir "Aprobados         : ", aprobados;

    Escribir "Porcen. aprobados : ", porcentaje_aprobados , "%";

    Escribir "Reprobados        : ", reprobados;

    Escribir "Porcen. reprobados: ", porcentaje_reprobados, "%";

FinAlgoritmo