Mayor, menor, pares e impares de 20 números en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Dado 20 números determinar cuál es número mayor y cuál es el número menor de esos números, la suma de los números pares e impares, cuantos fueron pares e impares.

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

Proceso MayorMenorParesEImparesDe20Numeros

    impares <- 0;

    mayor <- 0;

    menor <- 0;

    pares <- 0;

    suma_impares <- 0;

    suma_pares <- 0;

    Para i<-1 Hasta 20 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el valor de un numero:";

        Leer un_numero;

        Si i = 1 Y mayor<un_numero Entonces

            mayor <- un_numero;

        FinSi

        Si i = 1 Y menor>un_numero Entonces

            menor <- un_numero;

        FinSi

        Si un_numero MOD 2 = 0 Entonces

            pares <- pares+1;

            suma_pares <- suma_pares+un_numero;

        SiNo

            impares <- impares+1;

            suma_impares <- suma_impares+un_numero;

        FinSi

        Escribir "";

    FinPara

    Escribir "Valor de impares: ", impares;

    Escribir "Valor de mayor: ", mayor;

    Escribir "Valor de menor: ", menor;

    Escribir "Valor de pares: ", pares;

    Escribir "Valor de suma impares: ", suma_impares;

    Escribir "Valor de suma pares: ", suma_pares;

FinProceso