E como q eu faço para guardar e verificar um valor sem usar o enquanto?
No meu caso eu estou com uma dificuldade no item C desse exercício:
59) Crie um programa que leia o sexo e a idade de várias pessoas. O programa vai perguntar se o usuário quer continuar ou não a cada pessoa. No final, mostre:
a) qual é a maior idade lida
b) quantos homens foram cadastrados
c) qual é a idade da mulher mais jovem
d) qual é a média de idade entre os homens
Já tentei guardar a variavél usando uma variável auxilar, o problema é que sempre que o codigo verifica se o sexo digitado é feminino, eu não consigo deixar salvo o valor q eu digitei anteriormente. Ele sempre reescreve com o novo valor digitado.
algoritmo "Total de Salarios Pagos"
var
cont, idade, idadeH, menoridadeF, maioridadeF, maioridade, somaH: Inteiro
resp, sexo: Caractere
mediahomens: Real
inicio
cont <- 1
idadeH <- 0
somaH <- 0
resp <- "S"
Enquanto (resp = "S") faca
Escreval("---------------------------------")
Escreva("Qual o sexo da pessoa? ")
Leia(sexo)
Escreva("Qual a idade da pessoa? ")
Leia(idade)
Se (idade > maioridade) entao
maioridade <- idade
FimSe
Se (sexo = "Masculino") entao
idadeH <- idadeH + 1
somaH <- somaH + idade
mediahomens <- somaH / idadeH
FimSe
Se (sexo = "Feminino") entao
menoridadeF <- idade
maioridadeF <- idade
Senao
Se (idade > maioridadeF) entao
maioridadeF <- idade
Senao
Se (idade < menoridadeF) entao
menoridadeF <- idade
FimSe
FimSe
FimSe
Escreval("---------------------------------")
Escreva("voce deseja continuar? [S/N] ")
Leia(resp)
cont <- cont + 1
FimEnquanto
Escreval("--------------------------------------------")
Escreval("A maior idade e de",maioridade," anos")
Escreval("O total de homens cadastrados sao",idadeH)
Escreval("A menor idade entre as mulheres e", menoridadeF," anos")
Escreval("A media de idade entre os homens e de", mediahomens:4:2," anos")
fimalgoritmo