algoritmo "Média dos pesos e idades e quantidade de mulheres acima dos 25 anos"
var
n,contadoramulheresacima25,qtdehomens,contadoramulheresnormal:inteiro
idade:inteiro
peso,somapesohomens,somaidademulheres:real
sexo:literal
mediapeso,mediaidade:numerico
inicio
Repita
escreval ("Digite um número inteiro e maior que cinco")
leia (n)
ate (n>=5)
Repita
escreval ("Digite a idade")
leia (idade)
escreval ("Digite o seu peso")
leia (peso)
escreval ("Digite o seu sexo")
leia (sexo)
se (sexo="m") entao
somapesohomens <- somapesohomens+peso
qtdehomens <- qtdehomens+1
senao
contadoramulheresnormal <- contadoramulheresnormal+1
somaidademulheres <- somaidademulheres+idade
se (idade>25) entao
contadoramulheresacima25 <- contadoramulheresacima25+1
fimse
fimse
n <- n-1
ate (n<=0)
mediapeso <- somapesohomens/qtdehomens
mediaidade <- somaidademulheres/contadoramulheresnormal
escreval ("A média dos pesos dos homens", mediapeso)
escreval ("A média das idades das mulheres", mediaidade)
escreval ("Quantidade de mulheres acima de 25 anos", contadoramulheresacima25)
fimalgoritmo
Nenhum comentário:
Postar um comentário