var
Maior,Menor,Idade,QtdPessoas:Inteiro
MediaIdade,MediaAltura,Altura:Real
Continua:caractere
inicio
Maior <- 0
Menor <- 999
Continua <- "S"
Enquanto (Continua = "S") Faca
Escreva("Digite a idade: ")
Leia(Idade)
Escreva("Digite a altura: ")
Leia(Altura)
Se (Idade > Maior) Entao
Maior <- Idade
FimSe
Se (Idade < Menor) Entao
Menor <- Idade
FimSe
MediaIdade <- MediaIdade + Idade // Faz a soma da idade de todas pessoas
MediaAltura <- MediaAltura + Altura // Faz a soma da altura de todas pessoas
QtdPessoas <- QtdPessoas + 1 // Conta quantas pessoas existem no cadastro, para poder fazer a divisão das medias
Escreva("Deseja continuar cadastrando (S/N) ? ")
Leia(Continua)
FimEnquanto
Escreval("Média de Idade: ",MediaIdade / QtdPessoas)
Escreval("Média de Altura: ",MediaAltura / QtdPessoas)
Escreval("Maior Idade: ",Maior)
Escreval("Menor Idade: ",Menor)