1ª lista. 7 - Leia um numero N (inteiro, positivo >5). Depois, leia para um determinado grupo de pessoas (N) as seguintes informações:

Idade
Peso
Sexo

Este programa deve fornecer como saída:
• A média dos pesos dos homens;
• A média das idades das mulheres;
• Quantas mulheres acima de 25 anos;
__________________________________________________________________________



algoritmo "Cadastro de pessoas"
// Função :
// Autor :
// Data : 27/10/2010
// Seção de Declarações
var
n, i, qtde_mulheres, h, m : inteiro
pesohomens, idademulheres : real
media_peso, media_idade : numerico
idade : vetor [1..5] de inteiro
peso : vetor [1..5] de real
sexo : vetor [1..5] de caracter
inicio
media_peso <- 1
media_idade <- 1
repita
escreva ("Entre com o número de pessoas que deseja cadastrar: ")
leia (n)
se (n<=5) entao
escreval ("número inválido, entre com um número maior que 5 !")
fimse
ate (n>5)
PARA i de 1 ate n faca
escreva ("Entre com a idade da ", i ,"ª pessoa: ")
leia (idade[i])
escreva ("Entre com o peso da ", i ,"ª pessoa: ")
leia (peso[i])
escreva ("Entre com o sexo (M / F) da ", i ,"ª pessoa: ")
leia (sexo[i])
sexo[i] <- maiusc (sexo[i])
escreval ("")
SE (sexo[i]="M") entao
pesohomens <- pesohomens+peso[i]
h <- h+1
SENAO
idademulheres <- idademulheres + idade[i]
m <- m+1
SE (idade[i]>25) entao
qtde_mulheres <- qtde_mulheres + 1
FIMSE
FIMSE
FIMPARA
se (h=0) entao
media_peso <- 0
senao
media_peso <- pesohomens/h
fimse
se (m=0) entao
media_idade <- 0
senao
media_idade <- idademulheres/m
fimse
ESCREVAL ("_______________________________________________________________")
ESCREVAL ("")
ESCREVAL ("A média dos pesos dos homens é: ", media_peso)
ESCREVAL ("A média das idades das mulheres é: ", media_idade)
ESCREVAL ("O Nº de mulheres com mais de 25 anos é: ", qtde_mulheres)
ESCREVAL ("")
ESCREVA ("_______________________________________________________________")
ESCREVAL ("")
Fimalgoritmo