Jump to content

  2. → Viewing Profile: Posts: dgt

dgt

Member Since 13/10/2004
Offline Last Active 01/02/2011, 23:22
-----

Posts I've Made

In Topic: Exercicio

14/03/2010, 16:36

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.")

  1. Fórum WMO
  2. → Viewing Profile: Posts: dgt
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq