média turma

[DSR 0]

programa que leia o nome e as 3 notas dos 50 alunos de uma turma e:

a) calcule:

• a média aritmética de cada aluno;

• a situação de cada aluno (aprovado se média superior ou igual a 7.0);

• o número de alunos aprovados;

• a média geral da turma.

B) exiba:

• o nome e a situação de cada aluno;

• o número de alunos aprovados;

• a média geral da turma;

• o nome e a média dos alunos com média superior ou igual à média geral da turma.

 

 

program mediaturma;
var nome: array[1..50] of string;
n1, n2,n3,mediag, media: array[1..50] of real;
i,j: integer; {contador}
begin
for i := 1 to 50 do
begin
write('digite o nome do ',i,'º aluno: ');
readln(nome[i]);
write('digite a sua 1ª nota: ');
readln(n1[i]);
write('digite a sua 2ª nota: ');
readln(n2[i]);
write('digite a sua 3ª nota: ');
readln(n3[i]);
media[i] := (n1[i] + n2[i] + n3[i]) / 3;
writeln;
end;
for i := 50 downto 1 do
begin
if (media[i]>=7) then
writeln(nome[i],'o aluno está aprovado!');
else
writeln(nome[i],'o aluno está reprovado!');
mediag:=media[i]/50;
if (mediag >7)then
writel('os alunos’,nome[i],’teve médias acima da média!'); 


writeln(nome[i],' teve média igual a ',media[i]:1:2);
writeln;
end;

[quitZAUMMM 18]

Da para fazer a leitura em modo linear, os vetores só serão uteis para armazenar os dados de impressão na tela.

 

[]s