Note que aqui:
Se (gab[i]=resp[c]) entao
a variável i tem o valor que possuía no final do loop de leitura do gabarito. Creio que deveria ser:
Se (gab[c]=resp[c]) entao
Você precisa atribuir um valor incial a cada posição do vetor nota, por exemplo nota[a] <- 0
logo após a leitura do nome.
Você recalcula a média para cada aluno e não calcula a média da turma, imprime apenas o cálculo do último aluno.
Var
i,a,c: inteiro
resp,gab: vetor[1..5] de caractere
nome: vetor[1..3] de caractere
nota: vetor[1..5]3] de real
m,soma: real
Inicio
Para i <- 1 ate 5 faca
Escreva("Digite o gabarito ", i)
Leia(gab[i])
FimPara
soma <- 0
Para a <- 1 ate 3 faca
EscrevaL("ALUNOS ", a)
Escreva("Nome: ")
Leia(nome[a])
nota[a] <- 0
Para c <- 1 ate 5 faca
Escreva("Digite a questão ", c)
Leia(resp[c])
Se (gab[c]=resp[c]) entao
EscrevaL(" acertou a ", c)
nota[a] <- nota[a] + 2
soma <- soma + 2
FimSe
FimPara
FimPara
Para a <- 1 ate 3 faca
EscrevaL(nome[a]: 10, nota[a])
FimPara
m <- soma/3
Escreva("Média da Turma: ", m)
fimalgoritmo