-
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 una serie de N 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
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
Algoritmo EstadisticaN
calificacion_aprobatoria <- 7;
aprobados <- 0;
maximo <- 0;
minimo <- 0;
porcentaje_aprobados <- 0;
porcentaje_reprobados <- 0;
posicion_mayor <- 0;
posicion_menor <- 0;
promedio <- 0;
reprobados <- 0;
suma <- 0;
Escribir "Ingrese el número de elementos (n):";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "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
Si n > 0 Entonces
promedio <- suma / n;
porcentaje_aprobados <- 100.0 * aprobados / n;
porcentaje_reprobados <- 100.0 * reprobados / n;
FinSi
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
calificacion_aprobatoria <- 7;
aprobados <- 0;
maximo <- 0;
minimo <- 0;
porcentaje_aprobados <- 0;
porcentaje_reprobados <- 0;
posicion_mayor <- 0;
posicion_menor <- 0;
promedio <- 0;
reprobados <- 0;
suma <- 0;
Escribir "Ingrese el número de elementos (n):";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "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
Si n > 0 Entonces
promedio <- suma / n;
porcentaje_aprobados <- 100.0 * aprobados / n;
porcentaje_reprobados <- 100.0 * reprobados / n;
FinSi
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