5) Escreva um algoritmo que leia o nome, o sexo (“M” ou “F”), a altura e o peso de um grupo de 50 pessoas e informe:

a) as médias harmônicas das alturas dos homens e dos pesos das mulheres; e

b) o nome do homem mais alto e da mulher mais gorda.

 algoritmo “Média”
var
  h,i,j,l,m,n,pessoas: inteiro
  nomem,nomefinalm,nomeh,nomefinalh,sexo, masculino,feminino: literal
  peso,pesototal,mediapeso,altura,alturatotal,mediaaltura:real
  alturamaior,pesomaior:real
inicio
  escreva (“Digite o número de pessoas: “)
  leia(pessoas)
  h<-0
  i<-0
  m<-0
  j<-0
  l<-0
  n<-0
  alturatotal<-0
  pesototal<-0
  alturamaior<-0
  pesomaior<-0
  para h de 1 ate pessoas faca
    escreva (“Digite o sexo: “)
    leia (sexo)
    se (sexo=”masculino”) entao
      i<-i+1
      escreva (“Digite o nome: “)
      leia (nomeh)
      l<-l+1
      escreva (“Digite a altura: “)
      leia (altura)
      alturatotal<-alturatotal+altura
      se (altura>alturamaior) entao
        alturamaior<-altura
        nomefinalh<-nomeh
      fimse
    senao
      m<-m+1
      escreva (“Digite o nome: “)
      leia (nomem)
      n<-n+1
      escreva (“Digite o peso: “)
      leia(peso)
      pesototal<-pesototal+peso
      se (peso>pesomaior) entao
        pesomaior<-peso
        nomefinalm<-nomem
      fimse
    fimse
  fimpara
  mediaaltura<-alturatotal/i
  mediapeso<-pesototal/m
  escreval(“Média da altura dos homens: “,mediaaltura)
  escreval(“Média do peso das mulheres: “,mediapeso)
  escreval(“O homem mais alto é o “, nomefinalh,” com”,alturamaior,” metros.”)
  escreval(“A mulher mais pesada é a “,nomefinalm,” com”,pesomaior,” quilos.”)
fimalgoritmo