Exercicio 03

3 - Prepare um programa para calcular as notas da P1, P2 e P3 de 10 alunos, escreva a media final de cada aluno e escreva o total de pessoas aprovadas e reprovadas.

Program notas ;
var
P1: array[1..10]of real;
P2: array[1..10]of real;
P3: array[1..10]of real;
media,soma:real;
cont:integer;
Begin
for cont:= 1 to 10 do
begin
writeln('1ª nota:');
read(P1[cont]);
writeln('2ª nota:');
read(P2[cont]);
writeln('3ª nota:');
read(P3[cont]);

soma:=(P1[cont]+P2[cont]+P3[cont]);
media[cont]:=soma/3;

writeln('A media do aluno é:',media);

end;

End.