0
algoritmo "Tarefa 11"
var
p, i, c, c2, d : inteiro
altura, maioraltu, menoraltu, mediamu, mediap, percen : real
s : caractere
inicio
escreva("numero total de pessoas entrevistadas: ")
leia(p)
maioraltu := 0
menoraltu := 99999
para i de 1 ate p faca
escreva("qual a altura da pessoa: ")
leia(altura)
escreva("qual o Sexo: ")
leia(s)
mediap := mediap + altura
se altura > maioraltu entao
maioraltu := altura
senao
se altura <= menoraltu entao
menoraltu := altura
fimse
fimse
se (s = "f") entao
c := c + 1
mediamu := mediamu + altura
senao
se (s = "m") entao
c2 := c2 + 1
fimse
fimse
fimpara
mediamu := mediamu / c
mediap := mediap / p
percen:= c2 / p
escreval("Maior altura:", maioraltu)
escreval("Menor altura:", menoraltu)
escreval("Altura média das mulheres:", mediamu)
escreval("Altura média da população:", mediap)
escreval("Percentual de homens:", percen)
Fimalgoritmo