Alg BTI4

alg"bti4"
varvet:vetor[1..15] de inteiro
I,j,aux:inteiro
inicio
aleatorio onpara I:=1 ate 15 faca
leia(vet[i])
fimpara
aleatorio off//usando o metodo de ordenacao bubblesort
 para I:=1 ate 15 faca   //1 2  3  4 5
 para j:=1 ate (15-I)faca    //1 2
 se vet[j]>vet[j+1] entao  //
 aux:=vet[j]                //aux= 3
 vet[j]:=vet[j+1]
 vet[j+1]:=aux
 fimse
 fimpara fimpara para i:=1 ate 15 faca
 escreva(vet[i]) fimpara
fimalgoritmo