Atenção: Precisando de assessoria nos seus PROJETO entre em contato com a SGP
E-mail: ajudastrabalhosprogramacao@gmail.com
var
vet:vetor[1..10] de inteiro
cont,cont1,aux:inteiro
inicio
para cont de 1 ate 10 passo 1 faca
escreva("Informe um número: ")
leia(vet[cont])
fimpara
para cont de 1 ate 10 passo 1 faca
para cont1 de 1 ate 9 passo 1 faca
se (vet[cont1] > vet[cont1+1])entao
aux<-vet[cont1]
vet[cont1]<-vet[cont1+1]
vet[cont1+1]<-aux
fimse
fimpara
fimpara
para cont de 1 ate 10 passo 1 faca
escreval(cont,": ",vet[cont])
fimpara
fimalgoritmo
Atenção: Precisando de ajuda entre em contato com a SGP e solicite uma assessoria com a melhor equipe do mercado no desenvolvimento de trabalhos acadêmicos
E-mail: ajudastrabalhosprogramacao@gmail.com
Facebook: fb.me/ajudaemTrabalhosdeprogramacao
0 comentários:
Postar um comentário