média de uma turma
programa que recebe a primeira no e a segunda, armazenando-as em vetores separados, para 10 alunos, e ao final mostra a média de cada aluno.
Descrição
programa que recebe a primeira no e a segunda, armazenando-as em vetores separados, para 10 alunos, e ao final mostra a média de cada aluno.
program exercicio14;
uses crt;
Type
vetor=array[1..10] of integer;
var
nota1, nota2: vetor;
contador: integer;
begin
clrscr;
For contador:= 1 to 10 do
begin
Write('Digite a primeira nota do aluno ',contador:2,': ');
readln(nota1[contador]);
end;
writeln;
For contador:= 1 to 10 do
begin
Write('Digite a segunda nota do aluno ',contador:2,': ');
readln(nota2[contador]);
end;
writeln;
For contador:= 1 to 10 do
Writeln('A media do aluno ',contador,' e:',(nota1[contador]+nota2[contador])/2:2:2);
readkey;
end.