Calculando medianas

Algoritmo "MEDIANA_AVALIA"
// Disciplina   : [Linguagem e Lógica de Programação]
// Professor   : Antonio Carlos Nicolodi
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 04/04/2024
Var
// Seção de Declarações das variáveis
w,x,y,z,maior,menor,mediano:real

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
leia (w)
maior <- w
menor <- w
leia (x)
se (x > maior)
   maior <- x
senao
   menor <- x
leia (y)
se (y > maior)
   maior <- y
senao
     se y < menor
        menor <- y






// Seção para definir qual o maior valor de todos
SE ((w > x) e (w > y) e (w > z)) ENTAO
   maior <- w
SENAO
     ((w < x) e (x > y) e (x > z)) ENTAO
     maior <- x
FIMSE
SE ((x > w) e (x > y) e (x > z)) ENTAO
   maior <- x
FIMSE
SE ((y > w) E (y > x) E (y > z)) ENTAO
   maior <- y
FIMSE
SE ((z > w) E (z > x) E (z > y)) ENTAO
   ww <- z
FIMSE


ESCREVA((w + x + y + z) - maior - menor)





// Seção para definir qual o segundo maior valor
SE ((w < x) e (w > y) e (w > z)) ENTAO
   xx <- w
FIMSE
SE ((w < y) e (w < x) e (w > z)) ENTAO
   yy <- w
FIMSE
SE ((w > z) E (w < x) E (w < y)) ENTAO
   zz <- w
FIMSE
// Seção para definir qual o terceiro maior valor
SE ((w < x) e (w < y) e (w > z)) ENTAO
   xx <- w
FIMSE
SE ((w < y) e (w < x) e (w > z)) ENTAO
   yy <- w
FIMSE
SE ((w > z) E (w < x) E (w < y)) ENTAO
   zz <- w
FIMSE
SE ((z > w) E (z > x) E (z > y)) ENTAO
   ww <- z
// Seção para definir qual o menor valor

ESCREVAL(ww,xx,yy,zz)
Fimalgoritmo