Algoritmo "Bubble Sort"

Segue um exemplo de algoritmo no VisuAlg para realizar uma ordenação utilizando vetores:

Algoritmo "BUBBLESORT"
var
VET:VETOR[1..10] DE INTEIRO
I,J,AUX:INTEIRO
inicio


ALEATORIO ON
PARA I:=1 ATE 10 FACA
   LEIA(VET[I])
FIMPARA
ALEATORIO OFF


PARA J:=10 ATE 1 PASSO -1 FACA
   PARA I:=1 ATE J-1  FACA
      SE (VET[I] > VET[I+1]) ENTAO
         AUX:= VET[I]
         VET[I]:=VET[I+1]
         VET[I+1]:=AUX
      FIMSE
   FIMPARA
FIMPARA


// MOSTRANDO O VETOR ORDENADO...
ESCREVA("VETOR ORDENADO: ")
PARA I:=1 ATE 10 FACA
   ESCREVA(VET[I])
FIMPARA
fimalgoritmo