Alunos Matriculados Em Cálculos E Lógica Da Programação

var

matricula: inteiro

prog: vetor [1..150] de inteiro

calc: vetor [1..220] de inteiro

contador: inteiro

igual: real

inicio

//Dados

escreval("Digite 999 para encerrar")

para contador de 1 ate 150 faca

escreva("Digite o nº da matricula do aluno de Lógica de Programação(nº de 1 a 150): ")

leia (matricula)

se matricula = 999 entao

interrompa

fimse

prog[matricula] <- prog[matricula] + 1

fimpara

para contador de 1 ate 220 faca

escreva("Digite o nº da matricula do aluno de Cálculo (nº de 1 a 220): ")

leia (matricula)

se matricula = 999 entao

interrompa

fimse

calc[matricula] <- calc[matricula] + 1

// Cálculos

se prog[matricula] = calc[matricula] entao

igual <- igual + 1

fimse

fimpara

//Saída de Dados

escreval

escreval

escreval ("A quantidade de alunos cursando os dois cursos foi de: ",igual, " aluno(s)")

fimalgoritmo