Como calcular Média Harmônica em VisuAlg - VisuAlg para Matemática e Estatística

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

algoritmo "Como calcular Média Harmônica em VisuAlg"

var
  // variáveis usadas na resolução do problema
  valores: vetor[1..5] de real
  i, n: inteiro
  // para guardar a média harmônica
  media_harmonica: real
  // guarda a soma dos inversos dos elementos do conjunto
  soma: real

inicio
  // vamos criar um vetor com os valores do conjunto
  valores[1] <- 3
  valores[2] <- 9
  valores[3] <- 7
  valores[4] <- 2
  valores[5] <- 5

  // tamanho do vetor
  n <- 5

  // inicializa a soma como zero
  soma <- 0

  // vamos mostrar os elementos do conjunto
  escreva("Os elementos do conjunto são: ")
  para i de 1 ate 5 faca
    escreva(valores[i], ", ")
  fimpara

  // agora vamos somar os inversos dos elementos
  para i de 1 ate 5 faca
    soma <- soma + (1.0 / valores[i])
  fimpara

  // agora obtemos a média harmônica
  media_harmonica <- (n / soma)

  // e mostramos o resultado
  escreval()
  escreval("A Média Harmônica é: ", media_harmonica)

fimalgoritmo