5.5 - Uma escola deseja saber se existem alunos cursando, simultaneamente, as disciplinas Lógica e Linguagem e Programação. Coloque os números das matriculas dos alunos que cursam Lógica em um vetor, quinze alunos. Coloque os números das matriculas dos alunos que cursam Linguagem e Programação em outro vetor, dez alunos. Mostre o numero das matriculas que aparecem nos dois vetores.

5.5 - Uma escola deseja saber se existem alunos cursando,  simultaneamente, as disciplinas Lógica e Linguagem e Programação. Coloque os números das matriculas dos alunos que cursam Lógica em um vetor, quinze alunos. Coloque os números das matriculas dos alunos que cursam  Linguagem e Programação em outro vetor, dez alunos. Mostre o numero das matriculas que aparecem nos dois vetores.
Algoritmo "QUESTÃO 5.5"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 23/10/2016
Var
   // Seção de Declarações das variáveis
   vetlogica:vetor[1..15]de inteiro
   vetprog:vetor[1..10] de inteiro
   vetresultante:vetor[1..10]de inteiro
   i,j,z:inteiro
   EXISTE:LOGICO
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   ESCREVAL("-----ALUNOS DE LÓGICA---")
   PARA I:=1 ATE 15 FACA
      ESCREVAL("DIGITE A MATRICULA DO ",I,"º ALUNO DE LÓGICA")
      LEIA(VETLOGICA[I])
   FIMPARA
   ESCREVAL
   ESCREVAL("------------------------------------------")
   ESCREVAL("-----ALUNOS DE LINGUAGEM E PROGRAMAÇÃO---")
   PARA J:=1 ATE 10 FACA
      ESCREVAL("DIGITE A MATRICULA DO ",J,"º ALUNO DE LINGUAGEM E PROGRAMAÇÃO")
      LEIA(VETPROG[J])
   FIMPARA
   PARA J:=1 ATE 10 FACA
      PARA I:=1 ATE 15 FACA
         SE (VETLOGICA[I]=VETPROG[J]) ENTAO
            VETRESULTANTE[J]:=VETLOGICA[I]
            EXISTE:=VERDADEIRO
         FIMSE
      FIMPARA
   FIMPARA
   ESCREVAL
   ESCREVAL("----------------------------------------")
   ESCREVAL("MATRÍCULA DOS ALUNOS QUE CURSAM AS DUAS DISCIPLINAS")
   ESCREVAL("-----------------------------------------")
   SE EXISTE ENTAO
      PARA I:=1 ATE 10 FACA
         SE (VETRESULTANTE[I]<>0) ENTAO
            ESCREVA(VETRESULTANTE[I]:5)
         FIMSE
      FIMPARA
   SENAO
      ESCREVAL("NÃO EXISTEM ALUNOS CURSANDO AS DUAS DISCIPLINAS AO MESMO TEMPO..")
   FIMSE


Fimalgoritmo