Laize Neves

Oi @Simon Veigas, fiz desse jeito, quando faço 1,2,3,4,5 da certo mais se uso outros números não. não sei se é na hora de mostrar eu só coloquei o J, Ficou desse jeito:

var
i,j: inteiro
vetA: vetor[1..5] de inteiro
vetB: vetor[1..8] de inteiro
inicio
// Seção de Comandos
   para i de 1 ate 5 faca
   escreva ("Digite o", i, " número : ")
   leia (vetA)
fimpara
   para j de 1 ate 8 faca
   escreva ("Digite o", j, " número : ")
   leia (vetB[j])
fimpara
       para i de 1 ate 5 faca
       para j de 1 ate 8 faca
       se (vetA = vetB[j]) então
            escreval (j)
       
       fimse
       fimpara
       fimpara
       
fimalgoritmo

O que está de errado?

Bom dia Galera,

estou tentando resolver esse exercício mais não consigo, de todo jeito que eu faço não da certo. Alguém pode me ajudar?

Dado dois vetores, A (5 elementos) e B (8 elementos), faça um programa que imprima todos os elementos comuns aos dois vetores.

Fiz mais ou menos assim.

var
i,k,m: inteiro
vetA: vetor[1..5] de inteiro
vetB: vetor[1..8] de inteiro
inicio
// Seção de Comandos
   para i de 1 ate 5 faca
   escreva ("Digite o", i, " número : ")
   leia (vetA)
fimpara
   para i de 1 ate 8 faca
   escreva ("Digite o", i, " número : ")
   leia (vetB)
fimpara
       para i de 1 ate 8 faca
       se (vetA = vetB) então
       K<-i
       senao
       m<-k
       fimse
       fimpara
       
       escreval (k)

 
fimalgoritmo