Question

9. Codifique um programa que leia e armazene duas notas de 10 alunos e calcule e exiba as respectivas médias. O programa deve utilizar: • Um procedimento que receba dois vetores de notas decimais e o tamanho dos vetores e peça ao usuário para digitar as notas, de forma a preencher os vetores.

Answer 1

Program Media ;

var a1,a2,b1,b2,m1,m2:real;

Begin

  Write ('Digite a 1º nota do aluno1');

  read (a1);

  write ('Digite a 2º nota do aluno1');

  read (a2);

  Write ('Digite a 1º nota do aluno2');

  read (b1);

  write ('Digite a 2º nota do aluno2');

  read (b2);

  m1:= ((a1+a2)/2);

  m2:= ((b1+b2)/2);

  writeln ('A média é do aluno 1 é: ',m1);

  writeln ('A média é do aluno 2 é: ',m2);

End.