Desenvolver um programa que receba as duas notas de 10 alunos, calcular e mostrar a média de cada aluno, o total de aprovados, o total de reprovados, o total de recuperação e a média da classe. Considerar que se sua média for até 4 ele está reprovado, acima de 4 e abaixo de 8 ele está de terceira e acima de 8 ele está aprovado. Mostrar também a situação de cada um deles.
write('Informe a primeira nota do aluno ', i, ': ');
readln(n1[i]);
write('Informe a segunda nota do aluno ', i, ': ');
readln(n2[i]);
media := (n1[i] + n2[i]) / 2;
writeln('Media do aluno ', i, ': ', media:0:2);
mediaClasse := mediaClasse + media;
if media < 4 then
begin
writeln('Reprovado');
reprovados := reprovados + 1;
end
else if (media >= 4) and (media < 8) then
begin
writeln('Recuperacao');
recuperacao := recuperacao + 1;
end
else
begin
writeln('Aprovado');
aprovados := aprovados + 1;
end;
end;
mediaClasse := mediaClasse / MAX;
writeln('Total de aprovados: ', aprovados);
writeln('Total de reprovados: ', reprovados);
writeln('Total de recuperacao: ', recuperacao);
writeln('Media da classe: ', mediaClasse:0:2);
readln;
end.
Este algoritmo usa um loop para ler as notas de cada aluno e calcular sua média. Em seguida, ele verifica se a média é menor que 4, entre 4 e 8, ou maior que 8 e atualiza as contagens de aprovados, reprovados e recuperação. No final, ele calcula a média da classe e exibe todas as informações.
Lista de comentários
Resposta:
program mediaAlunos;
const
MAX = 10;
type
notas = array[1..MAX] of real;
var
n1, n2: notas;
i, aprovados, reprovados, recuperacao: integer;
media, mediaClasse: real;
begin
aprovados := 0;
reprovados := 0;
recuperacao := 0;
mediaClasse := 0;
for i := 1 to MAX do
begin
write('Informe a primeira nota do aluno ', i, ': ');
readln(n1[i]);
write('Informe a segunda nota do aluno ', i, ': ');
readln(n2[i]);
media := (n1[i] + n2[i]) / 2;
writeln('Media do aluno ', i, ': ', media:0:2);
mediaClasse := mediaClasse + media;
if media < 4 then
begin
writeln('Reprovado');
reprovados := reprovados + 1;
end
else if (media >= 4) and (media < 8) then
begin
writeln('Recuperacao');
recuperacao := recuperacao + 1;
end
else
begin
writeln('Aprovado');
aprovados := aprovados + 1;
end;
end;
mediaClasse := mediaClasse / MAX;
writeln('Total de aprovados: ', aprovados);
writeln('Total de reprovados: ', reprovados);
writeln('Total de recuperacao: ', recuperacao);
writeln('Media da classe: ', mediaClasse:0:2);
readln;
end.
Este algoritmo usa um loop para ler as notas de cada aluno e calcular sua média. Em seguida, ele verifica se a média é menor que 4, entre 4 e 8, ou maior que 8 e atualiza as contagens de aprovados, reprovados e recuperação. No final, ele calcula a média da classe e exibe todas as informações.