Question

Faça um código que vai receber 5 notas e exibir aquelas maiores que a média das mesmas notas dadas.

Answer 1

Program notas ;

VAR nota1,nota2,nota3,nota4,nota5,media:real;

Begin

writeln ('Digite suas cinco notas:');

readln (nota1, nota2, nota3, nota4, nota5);

media:=(nota1+nota2+nota3+nota4+nota5)/5;

writeln ('Sua média é: ',media);

IF nota1>media THEN

writeln ('A sua primeira nota (',nota1,') é maior que a média.');

IF nota2>media THEN

writeln ('A sua segunda nota (',nota2,') é maior que a média.');

IF nota3>media THEN

writeln ('A sua terceira nota (',nota3,') é maior que a média.');

IF nota4>media THEN

writeln ('A sua quarta nota (',nota4,') é maior que a média.');

IF nota5>media THEN

writeln ('A sua quinta nota (',nota5,') é maior que a média.');

writeln ('Aperte qualquer tecla para sair.');

readkey;

End.