Coleta de dados de alunos em Pascal
Desenvolver um programa que permita o armazenamento e manipulação de memória dos dados de 100 alunos (opcional) e exiba o nome e a média dos alunos que possuem médias superior a média da classe.
Descrição
Desenvolver um programa que permita o armazenamento e manipulação de memória dos dados de 100 alunos (opcional) e exiba o nome e a média dos alunos que possuem médias superior a média da classe.
program dadoaluno;
type aluno=record
media:real;
nome:string;
idade:integer;
notas:array [1..5] of real;
end;
var
soma,somamedia,mediaturma:real;
turma:array [1..5] of aluno;
j,i:integer;
begin
somamedia:=0;
for j:=1 to 2 do
begin
write ('Nome :');readln (turma[j].nome);
write ('idade :');readln (turma[j].idade);
soma:=0;
for i:=1 to 5 do
begin
write('Nota ',i,':'); readln(turma[j].notas[i]);
soma:=soma+turma[j].notas[i];
//turma[j].media:=soma/5;
end;
turma[j].media:=soma/5;
somamedia:=somamedia+turma[j].media;
end;
mediaturma:=somamedia/2;
write('Media Turma ', mediaturma:5:2);
for j:=1 to 2 do
begin
if turma[j].media > mediaturma then
write(turma[j].nome);
end;
end.