1 reply to this topic

[manobral]

Faça um algoritimo em portugal para ler a nota de cada um dos 5 alunos de uma turma e calcular a média da turma.
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.

[dgt]

Não sei se você já chegou nesse assunto, mas isso se resolve com vetor.

var
   cont, notaacima : inteiro
   nota : vetor[1..5] de real
   media : real
inicio
   para cont de 1 ate 5 faca
        Escreval("Digite a ", cont, "ª nota: ")
        leia(nota[cont])
        media <- media + nota[cont]
   fimpara
   media <- media / 5
   para cont de 1 ate 5 faca
        se (nota[cont] > media) entao
           notaacima <- notaacima+1
        fimse
   fimpara

   Escreval("A média da turma é: ", media)
   Escreval(notaacima, " alunos tiraram nota acima da média.")