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