Ler a idade e o peso de 10 pessoas e mostrar a quantidade de pessoas com mais de 80 quilos e a média das idades - Exercícios Resolvidos de VisuAlg

Informe a idade da 1.a pessoa: 95
Informe o peso da 1.a pessoa: 83

Informe a idade da 2.a pessoa: 45
Informe o peso da 2.a pessoa: 115

Informe a idade da 3.a pessoa: 83
Informe o peso da 3.a pessoa: 76

Informe a idade da 4.a pessoa: 19
Informe o peso da 4.a pessoa: 79

Informe a idade da 5.a pessoa: 40
Informe o peso da 5.a pessoa: 93

Quantidade de pessoas com mais de 80 quilos: 3
Média das idades das pessoas: 56.4

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

algoritmo "Ler a idade e o peso de 10 pessoas"

var
  // variáveis usadas na resolução do problema
  quant_acima_80_kg, soma_idades: inteiro
  i, idade: inteiro
  peso: real

inicio
  quant_acima_80_kg <- 0 // quantidade de pessoas acima de 80 quilos
  soma_idades <- 0 // soma das idades para depois obter a média

  // vamos ler os dados das 5 pessoas
  para i de 1 ate 5 faca
    escreva("Informe a idade da ", i, ".a pessoa: ")
    leia(idade)
    escreva("Informe o peso da ", i, ".a pessoa: ")
    leia(peso)

    // vamos somar mais esta idade
    soma_idades <- soma_idades + idade

    // esta pessoa possui mais de 80 quilos?
    se peso > 80 entao
      // aumenta o contador de pessoas acima de 80 quilos
      quant_acima_80_kg <- quant_acima_80_kg + 1
    fimse

    // adiciona uma quebra de linha
    escreval()
  fimpara

  // e agora mostramos o resultado
  escreval("Quantidade de pessoas com mais de 80 quilos: ", quant_acima_80_kg)
  escreval("Média das idades das pessoas: ", (soma_idades / 5.0))

fimalgoritmo