Lógica - Classificação de vetor usando método bolha

Bubble Sort

Este é um dos métodos de ordenação mais simples existentes.

Algoritmo:

• Percorra o vetor inteiro comparando elementos adjacentes (dois a dois)
• Troque as posições dos elements se eles estiverem fora de ordem
• Repita os dois passos acima com os primeiros n-1 itens, depois com os primeiros n-2 itens, até que reste apenas um item

Alguns vídeos:

• https://www.youtube.com/watch?time_continue=86&v=3mEnpA4vhQA 
• https://www.youtube.com/watch?v=YKlDz1J3TSw (Muito interessante)

Pseudocódigo:

Algoritmo
Declare
    vetor[0..14] : inteiro
    i, cadeira : inteiro
    trocou : lógica
Constante
    TAMANHO 15
Inicio
    Para i<- 0 até TAMANHO-1 Faça
    Inicio
        Escreva("Digite: ")
        Leia(vetor[i])
    Fim-Para
   
    j<-0
    trocou <- VERDADEIRO
    Enquanto j < TAMANHO-1 E trocou Faça
    Inicio
        i<-0
        trocou <- FALSO
        Enquanto i < TAMANHO-(1+j) Faça
        Inicio
            Se vetor[i] > vetor[i+1]
                Então
                    Inicio
                        //Trocar
                        cadeira <- vetor[i]
                        vetor[i] <- vetor[i+1]
                        vetor[i+1] <- cadeira
                        trocou <- VERDADEIRO
                    Fim
            Fim-Se
            i <- i + 1
        Fim-Enquanto
        j <- j + 1
    Fim-Enquanto
Fim


Será possível melhorar o algoritmo?