MaiorMenorQueAMedia

algoritmo "MaiorMenorIgualMedia"

var

contador    : inteiro
numero      : vetor[1..100] de inteiro
soma        : inteiro
media       : real
maiorMedia, menorMedia, igualMedia : inteiro
qtdeNumeros : inteiro
inicio
// Recebendo os 10 valores informados pelo usuario
 Escreva("Quantos número você deseja informar <limite 100> : ")
 leia(qtdeNumeros)
 contador <- 1
 enquanto contador <= qtdeNumeros faca
     escreva("Informe o ",contador, "º: ")
     leia(numero[contador])
     soma <- soma + numero[contador]     // acumulando os valores digitados
     contador <- contador + 1            // contador de 1 em 1
 fimenquanto
 media <- soma/qtdeNumeros
 escreval("Soma  = ", soma)
 escreval("Media = ", media)

 //Classificar os numeros - Maior / Menor / Igual a Media
 contador <- 1
 enquanto contador <= qtdeNumeros faca
   se numero[contador] = media entao
       igualMedia <- igualMedia + 1
     senao
       se numero[contador] > media entao
            maiorMedia <- maiorMedia + 1
         senao
            menorMedia <- menorMedia + 1
       fimse
   fimse
   contador <- contador + 1  // contador de 1 em 1
 fimenquanto
 Escreval("Igual a media     = ", igualMedia)
 Escreval("Maior que a media = ", maiorMedia)
 Escreval("Menor que a media = ", menorMedia)

fimalgoritmo