média de uma turma

Descrição

Esconder código-fonte

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.