algoritmo “ExercisioVetor11”
var
n,i,contH,contF: inteiro
vetG: vetor [0…5] de caractere
vetAlt: vetor [0…5] de real
mediaMulheres,Menor,testeMaior, somaAltura: real
inicio
escreva("Quantas pessoas serão Digitadas: ")
leia (n)
Menor ← vetAlt[0]
testeMaior ← vetAlt[0]
para i de 1 ate n faca
escreva("Altura da ",i,"ª pessoa: ")
leia (vetAlt[i])
escreva("Genero da ",i,"ª pessoa: ")
leia (vetG[i])
se vetG[i] = "f" entao
somaAltura <- somaAltura + vetAlt[i]
contF <- contF + 1
senao
contH <- contH + 1
fimse
se (Menor < vetAlt[i]) entao
Menor <- vetAlt[i]
fimse
se (vetAlt[i] > testeMaior) entao
testeMaior <- vetAlt[i]
fimse
fimpara
mediaMulheres ← somaAltura / contF
escreva ("Menor Altura= ",Menor:2:2)
escreval()
escreva ("Maior Altura= ",testeMaior:2:2)
escreval()
escreva ("Média das altuuras das Mulheres= ",mediaMulheres:2:2)
escreval()
escreva ("Número de Homens= ",contH)
fimalgoritmo