Exemplo 10:

=============================================================
Exemplo 10:

Fazer um programa que leia dois vetores A e B de 10 posições com números inteiros, e a seguir, troque o 1º elemento de A com o último (10º) de B, o segundo de A com o 9º de B, e assim por diante, até trocar o 10º de A com o 1º de B.
Mostrar os vetores antes e depois da troca.

=============================================================

// Seção de Declarações

var

vetorA,vetorB:vetor[1..10]de inteiro
temp,cont:inteiro

inicio

// Seção de Comandos
 

// Preenchendo os dois vetores.

para cont de 1 ate 10 faca          
     escreval("Escreva um numero:")
     leia(vetorA[cont])
     escreval("Escreva um numero:")
     leia(vetorB[cont])
fimpara

escreva("Vetor A ANTES")



// Mostrar o VETORA

para cont de 1 ate 10 faca 
     escreval(vetorA[cont])
fimpara

escreval("")
escreval("Vetor B ANTES")

// Mostrar o VETORB

para cont de 1 ate 10 faca
     escreval( vetorB[cont])
fimpara

// Instrução onde ocorre a troca dos valores dos dois vetores.

// A variável TEMP guarda temporariamente (salva)  o valor do VETORA para a posição fique livre para receber um valor do VETORB, depois o VETORB recebe o valor guardado na variável TEMP.

para cont de 1 ate 10 faca
     temp<-vetorA[cont]    
     vetorA[cont]<-vetorB[11-cont]
     vetorB[11-cont]<-temp
fimpara

escreva("VETOR A DEPOIS       ")
escreval("VETOR B DEPOIS")

para cont de 1 ate 10 faca
      escreval(vetorA[cont],"                         ",vetorB[cont])    // Instrução para mostrar os dois vetores  após a troca.
fimpara

fimalgoritmo