IsraelTh

Algoritmo "teste-66"

Var

   cont, idade, soma, mais, menos, maior : inteiro
   media : real

Inicio

   cont <- 1
   enquanto (cont <= 6) faca
      escreval("--------------------------------------- ")
      soma <- soma + idade
      escreva("Digite a idade da", cont, "º pessoa: ")
      leia(idade)
      se (cont = 1) então
         maior <- idade
         mais <- idade
         menos <- idade
      senao
         se (idade > maior) então
            maior <- idade
         senao
            se (idade < 5) então
               menos <- idade
            senao
               se (idade > 18) então
                  mais <- idade
               fimse
            fimse
         fimse
      fimse
      cont <- cont + 1
   fimEnquanto
   escreval("--------------------------------------- ")
   media <- soma / cont
   escreval("Qual é a media de idade do grupo: ", media:4:2)
   escreval("Quantas pessoas tem mais de 18 anos: ", mais)
   escreval("Quantas pessoas tem menos de 5 anos: ", menos)
   escreval("Qual foi a maior idade lida: ", maior)

Fimalgoritmo