Exercicio 07

7 - Escreva um algoritimo que leia um vetor G de 20 elementos caractere que represente....


Program ler_20_numeros ;
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.