Algoritmos e LD1 exercício 7

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;




Resposta:

algoritmo "7"

var

   S:literal

   qntdM,qntdF,idadeF,idade,F25,n:inteiro

   P,pesoM:real

inicio

   idade <-1

   qntdF <-0

   pesoM <-0

   escreva("Informe quantas pessoas tem no grupo: ")

   leia(n)

   escreval ()

   se (n > 5) entao

      para n de n ate 1 passo -1 faca

         escreva("Digite o sexo M ou F: ")

         leia(S)

         se ( S = "M") entao

            qntdM <- qntdM +1

            escreva("Digite o peso : ")

            leia(P)

            pesoM<- pesoM + P

            escreva("Digite a idade: ")

            leia(idade)

         senao

          se ( S = "F") entao

            qntdf <- qntdf +1

            escreva("Digite o peso  : ")

            leia(P)

            escreva("Digite a idade : ")

            leia(idade)

            idadef<- idadef + idade

            se (idade > 25) entao

               F25 <- F25 + 1

            fimse

          fimse

         fimse

      fimpara

      escreval()

      escreval("A média dos  pesos dos homens  é  :",pesoM/qntdM:5:1)

      escreval("A média das idades das mulheres é :",idadeF/qntdF:5:0)

      escreval("Quantidade de mulheres acima de 25 anos: ",F25)

   senao

      escreval("O grupo deve ter mais que 5 cinco pessoas.")

   fimse

fimalgoritmo