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
Edição feita por: manobral, 09/02/2010, 20:38.