Postagens
Male
OBS: Imprima a média e quantos alunos tiveram notas acima da media da turma
*Até agora so consegui fazer a média da turma
*Não estou conseguindo imprimir quantos alunos tiveram notas acima da média da turma
*Estou usando o visalg
*Do jeito que ele esta, imprime a média e a última nota lida
*Agradeço desde já
var
nota, media, nota_acima, soma : real
cont : inteiro
inicio
cont <- 0
soma <- 0
enquanto (cont <= 4) faca
escreva ("informe a nota do aluno:")
leia (nota)
cont <- cont + 1
soma <- nota + soma
se (nota >= media) ent
fimenquanto
media <- soma/cont
escreva ("A media é: ", media)
se (nota >= media) entao
nota_acima <- nota
fimse
escreva (nota_acima)
fimalgoritmo
