■ Pseudocodigo 07 ► Determinar número menor, mayor e intermedio

Ejercicio 07: Leer tres números enteros diferentes y determinar cuál es el menor, mayor e intermedio.

Variables
     n1, n2, n3, mayor, menor, inter tipo entero
Empieza
     Escribe "Ingresa primer numero"
     Leer n1
     Escribe "Ingresa segundo numero"
     Leer n2
     Escribe "Ingresa tercer numero"
     Leer n3
     mayor <- n1
     menor <- n1
     inter <- n1
     si n2 > mayor entonces
          mayor <- n2
     fin_si
     si n3 > mayor entonces
          mayor <- n3
     fin_si
     si n2 < menor entonces
          menor <- n2
     fin_si
     si n3 < menor entonces
          menor <- n3
     fin_si
     si (n1 > menor) Y (n1 < mayor) entonces
          inter <- n1
     fin_si
     si (n2 > menor) Y (n2 < mayor) entonces
          inter <- n2
     fin_si
     si (n3 > menor) Y (n3 < mayor) entonces
          inter <- n3
     fin_si
     Escribe "Menor: ",menor
     Escribe "Intermedio: ",inter
     Escribe "Mayor: ",mayor
Fin

En PSeint:

Proceso Ej_07

    n1 <- 0;

    n2 <- 0;

    n3 <- 0;

    Escribir "Ingresa primer numero";

    Leer n1;

    Escribir "Ingresa segundo numero";

    Leer n2;

    Escribir "Ingresa tercer numero";

    Leer n3;

    mayor <- n1;

    menor <- n1;

    inter <- n1;

    si n2 > mayor Entonces

        mayor <- n2;

    FinSi

    si n3 > mayor Entonces

        mayor <- n3;

    FinSi

    si n2 < menor Entonces

        menor <- n2;

    FinSi

    si n3 < menor Entonces

        menor <- n3;

    FinSi

    si (n1 > menor) Y (n1 < mayor) Entonces

        inter <- n1;

    FinSi

    si (n2 > menor) Y (n2 < mayor) Entonces

        inter <- n2;

    FinSi

    si (n3 > menor) Y (n3 < mayor) Entonces

        inter <- n3;

    FinSi

    Escribir "Menor: ",menor;

    Escribir  "Intermedio: ",inter;

    Escribir  "Mayor: ",mayor;

FinProceso

■ Otros lenguajes
Java ► Determinar mayor, intermedio y menor
C# ► Determinar mayor, intermedio y menor
Pascal ► Determinar mayor, intermedio y menor