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

// Como calcular Média Harmônica em Portugol
programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    real valores[5] = {3, 9, 7, 2, 5}
    inteiro n
    // para guardar a média harmônica
    real media_harmonica
    // guarda a soma dos inversos dos elementos do conjunto
    real soma

    // 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 (inteiro i = 0; i < n; i++) {
      escreva(valores[i], ", ")
    }

    // agora vamos somar os inversos dos elementos
    para (inteiro i = 0; i < n; i++) {
      soma = soma + (1.0 / valores[i])
    }

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

    // e mostramos o resultado  
    escreva("\nA Média Harmônica é: ", media_harmonica)
  }
}