Exercicios de Algoritimos

Algoritmo "Valores acima da média"

VAR
A, B, C, D, total: REAL
M: REAL
INICIO
Escreva ("Digite o primeiro número:);
Leia (A);
Escreva ("Digite o segundo número:);
Leia (B);
Escreva ("Digite o terceiro número:);
Leia (C);
Escreva ("Digite o quarto número:);
Leia (D);
M <-- (A+B+C+D) /4;
SE (A > M);
Então total <-- total + 1
FIM SE
SE (B > M);
Então total <-- total + 1
FIM SE
SE (C > M);
Então total <-- total + 1
FIM SE
SE (D > M)
Então total <-- total + 1
FIM SE
Escreva ("O número de números acima da média são:", total)
FIMALGORITMO;