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, INDMIN: inteiro
AUX, MINIMO : caractere
NOME : vetor [1..20] de caractere
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 (NOME[I])
fimpara
escreval("Procurando o minimo na iteração K")
escreval("Ordenando o conjunto ...")
para k de 1 ate (N-1) faca
  MINIMO <- "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"
  para I de K ate N faca
     se NOME[I] < MINIMO entao
        MINIMO <- NOME[I]
        INDMIN <- I
     fimse
  fimpara
  NOME[INDMIN] <- MINIMO
  AUX <- NOME[K]
  NOME[K] <- NOME[INDMIN]
  NOME[INDMIN] <- AUX
fimpara
escreval ()
escreval ("Mostrando o conjunto ordenado")
para I de 1 ate N faca
  escreval (NOME[I], "   ")
fimpara
escreval ()
fimalgoritmo