algoritmo "semnome"
funcao verificaPassou(nota: real): caractere

inicio
   se nota >= 7 entao
      retorne "APROVADO"
   senao
      retorne "REPROVADO"
   fimse
fimfuncao

var
   Gab,vetorA: vetor[1..10] de caractere
   vetorf: vetor[1..15] de real
   n1,n,n2: inteiro
   c: real
   aprovado: caractere
   j : inteiro
inicio


   //--------------------------------------------//
   //Tela 1:
   //Cadastro de Gabarito:
   EscrevaL("  Passo 1 - Cadastro de Gabarito  ")
   EscrevaL("----------------------------------")
   Para j de 1 ate 10 faca
      EscrevaL("Questão ", j, ":")
      Leia(Gab[j])
      Gab[j] <- maiusc(Gab[j])
   Fimpara
   LimpaTela

   para n1 de 1 ate 15 faca
      para n2 de 1 ate 10 faca
         escreval("Aluno #",n1," Questão #", n2)

         leia(vetorA[n2])
         vetorA[n2]  <- maiusc(vetorA[n2])
         se (vetorA[n2] = Gab[n2]) entao
            c <- c + 1
         fimse

         vetorf[n1] <- c
      fimpara
      c <- 0
   fimpara

   n1 <- 0

   para n1 de 1 ate 15 faca
      aprovado<- verificaPassou(vetorf[n1])
      escreval("NOTA ALUNO #",n1," = ",vetorf[n1]," SITUAÇÃO: ",aprovado)
   fimpara

   escreval("----------------")
   escreval("GABARITO CORRETO")
   escreval("----------------")
   n1 <- 0
   para n1 de 1 ate 10 faca

      escreval("Questão #1",n1," = ",Gab[n1])
   fimpara


fimalgoritmo