[Resolvido] Problema em exercicio de vetor!

[Pedro Jobs 0]

O exercicio: Faça um algoritmo que leia um vetor de inteiros A[20]. Em seguida, ordene crescentemente este vetor exiba todos os seus valores.

 

Concigo resolver até uma parte e depois eu travo!! http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

var
a:vetor [1..20] de inteiro
i,b,xi,tot:inteiro
inicio
escreval("Digite uma sequência de 20 números: ")
para i de 1 ate 19 faca
leia(a[i])
fimpara
tot<- 1
enquanto tot=1 faca
se a[i]<a[i+1] entao
para i de 1 ate 19
x<-a[i]
a[i]<-a[i+1]
a[i+1]<-x
fimenquanto
fimse
escreval(a[i])

para i de 1 ate 20 faca
escreval(a[i])
fimpara


fimalgoritmo

e não concigo continuar!

e da um erro doido!!

 

Por favor me ajudem!! http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

[Pedro Jobs 0]

Ei galeraaa!!

Consegui resolver o algoritmo!

e ficou assim

var
a: vetor [1..20] de inteiro
i,b,xi,tot:inteiro
inicio
escreval("Digite uma sequência de 20 números: ")
tot <- 1
para i de 1 ate 20 faca
	 leia(a[i])
fimpara
	   escreval()
	   escreval("A sequência é:")
	   para b de 1 ate 20 faca
	   tot<-1
	 enquanto tot=1 faca
	 para i de 1 ate 19 faca
	 se a[i]>a[i+1] entao
	 xi<- a[i]
	 a[i]<- a[i+1]
	 a[i+1]<- xi
	 senao
	 tot <- 2
	 fimse
	 fimpara
	 fimenquanto
	 fimpara

 para i de 1 ate 20 faca
escreval(a[i])
fimpara
fimalgoritmo

Valeu!!