algoritmo "ORDEM CRESCENTE"
// Função : ordenar de forma crescente um conjunto de valores inteiros menores que 10000.
// Autor : Prof. Bosco
// Data : 02/05/2016
// Seção de Declarações 
var
N, I, K, AUX, MINIMO, INDMIN: 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 minimo na iteração K")
escreval("Ordenando o conjunto ...")
para k de 1 ate (N-1) faca
  MINIMO <- 10000
  para I de K ate N faca
     se S[I] < MINIMO entao
        MINIMO <- S[I]
        INDMIN <- I
     fimse
  fimpara
  S[INDMIN] <- MINIMO
  AUX <- S[K]
  S[K] <- S[INDMIN]
  S[INDMIN] <- AUX
fimpara
escreval ()
escreval ("Mostrando o conjunto ordenado")
para I de 1 ate N faca
  escreva (S[I], " ")
fimpara
escreval ()
fimalgoritmo