questão 1

Matriz e Registro

{1 - Faça um programa que leia o nome de dez alunos e respectivas
1ª, 2ª, 3ª e 4ª notas, a seguir calcule a média. Escreva o nome
do aluno e a sua média. }

program aluno_nota;

var
aluno: array[1..10,1..4] of integer;
nome: array[1..10] of string;
soma, media: array [1..4] of real;
linha, coluna: integer;

begin
for linha := 1 to 10 do

begin

writeln ('Digite o nome do aluno: ');
readln (nome[linha]);

for coluna := 1 to 4 do

begin

writeln ('Digite a nota da ', coluna, ' ª prova do aluno, nome[linha]);
readln (aluno[linha,coluna]);

soma [linha] := soma [linha] + aluno[linha,coluna];
end;
end;

for linha := 1 to 10 do

begin

media [linha] := (soma[linha])/4;
writeln ('A media do aluno ', nome[linha], '', 'foi: ',media[linha]:2:2);

end;
end.