12) Escreva um que leia um vetor G de 20 elementos caractere que representa o gabarito de uma prova.

A seguir, para cada um dos 50 alunos de turma, leia o vetor de respostas (R) do aluno e conte o número

de acertos. Mostre o n° de acertos do aluno e uma menssagem APROVADO, se a nota for maior ou igual a 6;

e mostre uma menssagem de REPROVADO,caso contrário.

Program Pzim ;
VAR
certa,soma, cont, cont1,alunos : integer;

G:array[1..20]of char;
R:array[1..20]of char;

Begin
soma:=0;
for cont1:=1 to 5 do
begin
writeln ('digite a resposta da questao ', cont1);
readln (G[cont1]);
end;
writeln ('Gabarito inserido');
writeln;


for alunos:=1 to 3 do
begin

for cont:=1 to 5 do
begin
writeln ('ALUNO [ ',alunos,' ]Digite a resposta ',cont);
readln (R[cont]);

if (R[cont] = G[cont]) then
soma:=soma+1;
end;
if (soma>=3) then
Writeln ('Aluno ',alunos,' aprovado')
else
Writeln ('Aluno ',alunos,' reprovado');
Writeln;
Writeln;
soma:=0;
Writeln('-----');
end;

End.