-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Determinar de N cantidades, cuántas son cero, cuántas son menores a cero, y cuántas son mayores a cero.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Proceso CantidadesCeroMenoresYMayores
cantidades_cero <- 0;
menores_a_cero <- 0;
mayores_a_cero <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el valor de cantidad:";
Leer cantidad;
Si cantidad = 0 Entonces
cantidades_cero <- cantidades_cero+1;
FinSi
Si cantidad<0 Entonces
menores_a_cero <- menores_a_cero+1;
FinSi
Si cantidad>0 Entonces
mayores_a_cero <- mayores_a_cero+1;
FinSi
Escribir "";
FinPara
Escribir "Valor de cantidades cero: ", cantidades_cero;
Escribir "Valor de menores a cero: ", menores_a_cero;
Escribir "Valor de mayores a cero: ", mayores_a_cero;
FinProceso
cantidades_cero <- 0;
menores_a_cero <- 0;
mayores_a_cero <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el valor de cantidad:";
Leer cantidad;
Si cantidad = 0 Entonces
cantidades_cero <- cantidades_cero+1;
FinSi
Si cantidad<0 Entonces
menores_a_cero <- menores_a_cero+1;
FinSi
Si cantidad>0 Entonces
mayores_a_cero <- mayores_a_cero+1;
FinSi
Escribir "";
FinPara
Escribir "Valor de cantidades cero: ", cantidades_cero;
Escribir "Valor de menores a cero: ", menores_a_cero;
Escribir "Valor de mayores a cero: ", mayores_a_cero;
FinProceso