programa
{
funcao inicio ()
{
inteiro i, j, a
real nota, media, soma, notaf[4]
cadeia resp[6], gab[6], nome[4]
soma=0
escreva("\n\t--------------------\n")
escreva("\tCADASTRO DO GABARITO")
escreva("\n\t-------------------\n")
para(i=1; i<=5; i++){
escreva("Questão ", i, "°: ")
leia(gab[i])
}
limpa()
escreva("-------------------\n")
para(a=1; a<=3; a++){
escreva(a, "° ALUNO(A)")
escreva("\n-------------------")
escreva("\nNome: ")
leia(nome[a])
nota=0
escreva("RESPOSTAS DADAS: \n")
para(j=1; j<=5; j++){
escreva("Questão ", j, "°: ")
leia(resp[j])
se(resp[j]==gab[j]){
nota=nota+2
}
}
limpa()
soma=soma+nota
notaf[a]=(nota)
}
media=(soma/3)
escreva("-------------------")
escreva("\n\tNOTAS FINAIS\n")
escreva("-------------------\n")
para(j=1; j<=3; j++){
escreva(nome[j], ": ", notaf[j], "\n")
}
escreva("A média da turma é: ", media)
}
}
Eu fiz no portugol, não esqueça de fazer testes, qualquer erro ou dúvida, pergunte nos comentários.
Espero ter ajudado!
