Ajuda com exercicio de Intersecção em Visualg

[sagawinz]

To enroscado com essas 2 questões...

5) Leia dois vetores A e B de tamanho 10. Depois gere, a partir

elementos dos vetores A e B. Ou seja, você deve colocar em C

um elemento de A, depois um elemento de B, outro elemento

de A, outro elemento de B e assim sucessivamente. Todos os

elementos de A e B devem estar em C.

6) Estenda a questão anterior para, a partir dos vetores A e B,

gerar o vetor INTERSECAO que corresponde aos elementos

que estão no vetor A e também estão no vetor B. Ou seja, o

vetor INTERSECAO será um vetor com os elementos em

comum entre os vetores A e B.

tentei de todas as formas, eu consegui fazer a intersecção, mas apenas se colocar o numero igual na mesma ordem, e so consegui fazer a intersecção, quando junto as 2 questões ela da erro, me ajudem pois é pra PROVA segunda feira =(...

Meu algoritmo de intersercção:

var

AA,BB,CC: inteiro

A: vetor [1..10] de inteiro

B: vetor [1..10] de inteiro

C: vetor [1..20] de inteiro

inter: vetor [1..10] de inteiro

contador: inteiro

inicio

// Seção de Comandos

para contador de 1 ate 3 faca

escreval ("Digite um numero para a primeira lista")

leia (AA)

A[contador] <- AA

fimpara

para contador de 1 ate 3 faca

escreval ("Digite um numero para a segunda lista")

leia (BB)

B[contador] <- BB

se (A[contador] = BB) então

inter[contador] <- BB

fimse

fimpara

escreval ("--------------")

se (inter[1] <> 0) então

escreval (inter[1])

fimse

se (inter[2] <> 0) então

escreval (inter[2])

fimse

se (inter[3] <> 0) então

escreval (inter[3])

fimse

se (inter[4] <> 0) então

escreval (inter[4])

fimse

se (inter[5] <> 0) então

escreval (inter[5])

fimse

fimalgoritmo

O algoritmo que está dando erro:

var

A: vetor [1..10] de inteiro

B: vetor [1..10] de inteiro

C: vetor [1..30] de inteiro

inter: vetor [1..10] inteiro

AA, BB, contador: inteiro

inicio

// Seção de Comandos

para contador de 1 ate 3 faca

escreval ("Digite um numero para a primeira lista")

leia (AA)

A[contador] <- AA

C[contador] <- A[contador]

fimpara

para contador de 1 ate 3 faca

escreval ("Digite um numero para a segunda lista")

leia (BB)

B[contador] <- BB

C[contador] <- B[contador]

se (A[contador] = BB) então

inter[contador] <- BB

fimse

fimpara

escreval ("A lista completa segue abaixo:")

escreval (C[1])

escreval (C[11])

escreval (C[2])

escreval (C[12])

escreval (C[3])

escreval (C[13])

escreval (C[4])

escreval (C[14])

escreval (C[5])

escreval (C[15])

escreval (C[6])

escreval (C[16])

escreval (C[7])

escreval (C[17])

escreval (C[8])

escreval (C[18])

escreval (C[9])

escreval (C[19])

escreval (C[10])

escreval (C[20])

escreval ("-------Numeros de Intersecção-------")

se (inter[1] <> 0) então

escreval (inter[1])

fimse

se (inter[2] <> 0) então

escreval (inter[2])

fimse

se (inter[3] <> 0) então

escreval (inter[3])

fimse

se (inter[4] <> 0) então

escreval (inter[4])

fimse

se (inter[5] <> 0) então

escreval (inter[5])

fimse

se (inter[6] <> 0) então

escreval (inter[6])

fimse

se (inter[7] <> 0) então

escreval (inter[7])

fimse

se (inter[8] <> 0) então

escreval (inter[8])

fimse

se (inter[9] <> 0) então

escreval (inter[9])

fimse

se (inter[10] <> 0) então

escreval (inter[10])

fimse

fimalgoritmo

Aguardo ajuda de vocês, é muito importante...

[sagawinz]

Já resolvi..

Fecha o topico por favor...