algoritmo "ORDEM DECRESCENTE"
// Função : ordenar de forma decrescente um conjunto de valores inteiros maiores que -10000.
// Autor : Prof. Bosco
// Data : 02/05/2016
// Seção de Declarações
var
N, I, K, AUX, MAXIMO, INDMAX: inteiro
S : vetor [1..5] de inteiro
inicio
// Seção de Comandos
escreval ("Entre com o tamanho N do conjunto")
leia (N)
escreva ()
escreval ("Leia o valores do conjunto desordenado ")
para I de 1 ate N faca
  leia (S[I])
fimpara
escreval("Procurando o MÁXIMO na iteração K")
escreval("Ordenando o conjunto ... Ordem Decrescente")
para k de 1 ate (N-1) faca
  Maximo <-  -10000
  para I de K ate N faca
     se S[I] > MAXIMO entao
        MAXIMO <- S[I]
        INDMAX <- I
     fimse
  fimpara
  S[INDMAX] <- MAXIMO
  AUX <- S[K]
  S[K] <- S[INDMAX]
  S[INDMAX] <- AUX
fimpara
escreval ()
escreval ("Mostrando o conjunto ordenado decrescente")
para I de 1 ate N faca
  escreva (S[I], " ")
fimpara
escreval ()
fimalgoritmo