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 “Média de pesos e de idades”
var
  quantidadedepessoas,idade,m,idadetotal,mais25,l:inteiro
  peso,pesototal,mediapeso,mediaidade:real
  sexo:literal
inicio
   idade<-1
   l<-0
   mediapeso<-0
   escreva(“Digite a quantidade de pessoas:”)
   leia(quantidadedepessoas)
   se(quantidadedepessoas>5) entao
     para quantidadedepessoas de quantidadedepessoas ate 1 passo – 1 faca
       escreva(“Digite o sexo:”)
       leia(sexo)
       se (sexo = “masculino”) entao
         l<-l+1
         escreva(“Digite o peso:”)
         leia(peso)
         pesototal<-pesototal+peso
         escreva(“Informe a idade:”)
         leia(idade)
       senao
        m<-m+1
        escreva(“Informe o peso:”)
        leia(peso)
        escreva(“Informe a idade:”)
        leia(idade)
        idadetotal<-idadetotal+idade
        se(idade<25) entao
          mais25<-mais25+1
        fimse
       fimse
     fimpara
     mediapeso<-pesototal/l
     mediaidade<-idadetotal/m
     escreval(“Média do peso dos homens:”,mediapeso)
     escreval(“Média da idade das mulheres:”, mediaidade)
     escreval(“Mulheres acima de 25 anos:”,mais25 )
   senao
    escreval(“Número insuficiente de pessoas.”)
   fimse
fimalgoritmo