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

Idade, Peso e 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 "estatistica"

Var
    num, i: inteiro
    tentar: literal
    idade, peso: vetor [1..100] de inteiro
    sexo: vetor [1..100] de literal
    mediapeso, numpeso: real
    mediaidade, numidade: real
    acima25: real
Inicio
    tentar<-"s"
    num <- 0
    Enquanto (num<5) e (tentar="s") FACA
        Escreva("Informe o numero de pessoas (maior que 5): ")
        Leia(num)
        Se(num>5)Entao
            tentar<-"n"
        Senao
            Escreval("O numero deve ser maior doque 5 pessoas.")
            Escreva("Gostaria de tentar denovo? (s/n): ")
            Leia(tentar)
            Limpatela
        Fimse
    Fimenquanto
    Se(num>5)Entao
        Para i De 1 Ate num Faca
            Escreva("Digite a Idade ",i, ": ")
            Leia(idade[i])
            Escreva("Digite o Peso ",i, ": ")
            Leia(peso[i])
            Escreva("Digite o Sexo ",i, " (m/f): ")
            Leia(sexo[i])
        Fimpara
        numpeso <- 0
        mediapeso <- 0
        Para i De 1 Ate num Faca
            Se(sexo[i] = "m") Entao
                numpeso <- numpeso + 1
                mediapeso <- mediapeso + peso[i]
            Fimse
        Fimpara
        mediapeso <- mediapeso / numpeso
        numidade <- 0
        mediaidade <- 0
        Para i De 1 Ate num Faca
            Se(sexo[i] = "f") Entao
                numidade <- numidade +1
                mediaidade <- mediaidade + idade[i]
            Fimse
        Fimpara
        mediaidade <- mediaidade/numidade
        acima25 <- 0
        Para i De 1 Ate num Faca
            Se(sexo[i] = "f") e (idade[i] > 25) Entao
                acima25 <- acima25 + 1
            Fimse
        Fimpara
        Escreval("A média dos pesos dos homens e: ",mediapeso, " kgs")
        Escreval("A média das idades das mulheres e:",mediaidade, " anos")
        Escreval("Quantas mulheres acima de 25 anos: ",acima25)
    Senao
        Escreva("Quantidade invalida de pessoas!")
    Fimse
Fimalgoritmo
 Algoritmo Verificado!