ppl preciso d uma ajuda pa um trabalho,so me falta adicionar a nota minima de cada aluno,alguem m pode ajudar?urgente pff
Program matrizes;
Uses crt;
{ Calcular a média das notas de cada aluno e as médias das notas em cada disciplina }
Var
notas2 : array[1..10,1..5] of real;
media_aluno : array[1..10] of real;
media_disc : array[1..5] of real;
i, j : integer;
soma, media : real;
begin
{ preenche a matriz notas2, linha a linha (aluno) }
for i:= 1 to 10 do begin
for j:= 1 to 5 do begin
read(notas2[i,j]);
{ calculando as médias das notas dos alunos}
for i:= 1 to 10 do begin
soma := 0;
for j:= 1 to 5 do begin
soma := soma + notas2[i,j];
media := soma/5;
media_aluno[i] := media;
end;
{ calculando as médias das notas em cada disciplina }
for j:= 1 to 5 do begin
soma := 0;
for i:= 1 to 10 do begin
soma := soma + notas2[i,j];
media := soma/10;
media_disc[j] := media;
end;
end;
end;
end;
{Imprimindo os resultados}
Writeln('Média das notas dos alunos:');
for i:= 1 to 10 do
writeln('Aluno[', i:2, '] = ', media_aluno[i]:3:2);
writeln('Média das notas em cada disciplina:');
for j:= 1 to 5 do begin
writeln('Disciplina[', j:2, '] = ', media_disc[j]:3:2);
end;
end;
end.
Program matrizes;
Uses crt;
{ Calcular a média das notas de cada aluno e as médias das notas em cada disciplina }
Var
notas2 : array[1..10,1..5] of real;
media_aluno : array[1..10] of real;
media_disc : array[1..5] of real;
i, j : integer;
soma, media : real;
begin
{ preenche a matriz notas2, linha a linha (aluno) }
for i:= 1 to 10 do begin
for j:= 1 to 5 do begin
read(notas2[i,j]);
{ calculando as médias das notas dos alunos}
for i:= 1 to 10 do begin
soma := 0;
for j:= 1 to 5 do begin
soma := soma + notas2[i,j];
media := soma/5;
media_aluno[i] := media;
end;
{ calculando as médias das notas em cada disciplina }
for j:= 1 to 5 do begin
soma := 0;
for i:= 1 to 10 do begin
soma := soma + notas2[i,j];
media := soma/10;
media_disc[j] := media;
end;
end;
end;
end;
{Imprimindo os resultados}
Writeln('Média das notas dos alunos:');
for i:= 1 to 10 do
writeln('Aluno[', i:2, '] = ', media_aluno[i]:3:2);
writeln('Média das notas em cada disciplina:');
for j:= 1 to 5 do begin
writeln('Disciplina[', j:2, '] = ', media_disc[j]:3:2);
end;
end;
end.
Comentário