Nayron Dps Anjos

lgoritmo "semnome"

// Função :

// Autor :

// Data : 11/08/2014

// Seção de Declarações

var

vet1: vetor [1..20] de inteiro

vet2: vetor [1..20] de inteiro

vet3: vetor [1..40] de inteiro

i,j,x,aux: inteiro

inicio

// Seção de Comando

x<-1

aux<-1

escreval("Lendo valores para vetor 1")

para i de 1 ate 20 passo 1 faca

escreva("Vetor 1 posição ",i,"º: ")

leia(vet1[i])

fimpara

escreval("Lendo valores para vetor 2")

para i de 1 ate 20 passo 1 faca

escreva("Vetor 2 posição ",i,"º: ")

leia(vet2[i])

fimpara

para i de 1 ate 40 passo 1 faca

se(i % 2 = 0) entao

vet3[x] <- vet1[i]

x<-x+1

fimse

fimpara

para i de 1 ate 40 passo 1 faca

se (i % 2 = 1) entao

vet3[aux]<- vet2[i]

aux<- aux +1

fimse

fimpara

escreval("Imprimindo o vetor 3")

para i de 1 ate x passo 1 faca

escreval(vet3[i])

fimpara

fimalgoritmo