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) A média dos pesos dos homens; b) A média das idades das mulheres; c) Quantas mulheres acima de 25 anos;

algoritmo "Informações sobre idade, peso, sexo"

var
   grupoPessoas, quantidadeHomens,quantidadeMulheres,mediaIdadeMulheres,idade,mulheresAcima25Anos:inteiro
   mediaPesoHomens,peso:real
   sexo:caracter
inicio
   idade<-1
   quantidadeMulheres<-0
   mediapesoHomens <- 0
   escreval("Entre com a quantidade de pessoas:")
   leia(grupoPessoas)
   se (grupoPessoas > 5) entao
      para grupoPessoas de grupoPessoas ate 1 passo -1 faca
         escreva("Informe o sexo M ou F: ")
         leia(sexo)
         se (sexo = "M") entao
            quantidadeHomens<-quantidadeHomens +1
            escreva("Informe o peso do homem: ")
            leia(peso)
            mediaPesoHomens<- mediaPesoHomens + peso
            escreva("Informe a idade do homem: ")
            leia(idade)
         senao
            quantidadeMulheres<-quantidadeMulheres +1
            escreva("Informe o peso da mulher: ")
            leia(peso)
            escreva("Informe a idade da mulher: ")
            leia(idade)
            mediaIdadeMulheres<- mediaIdadeMulheres + idade
            se (idade > 25) entao
               mulheresAcima25Anos<- mulheresAcima25Anos + 1
            fimse
         fimse
      fimpara
      escreval("A média de peso dos homens eh: ",mediaPesoHomens/quantidadeHomens)
      escreval(" A media de idade das mulheres eh: ",mediaIdadeMulheres/quantidadeMulheres)
      escreval("Há ",mulheresAcima25Anos, " mulheres acima de 25 anos",)
   senao
      escreval("O grupo de pessoas é menor que 5")
   fimse
fimalgoritmo