Question

Preciso de um algoritmo que leia N números e use o valor zero como parada de leitura. Depois mostre a média dos valores par que foram digitados. Para finalizar,
informe quantas notas foram digitadas e mostre a média dos pares.

Preciso que este algoritmo seja feito no visual G

Answer 1

Olá! :D

Algoritmo "Numbers"

Var

  resposta, contaVal, sPar, qPar: inteiro

  mPar: real

Inicio

  repita

     escreva("> ")

     leia(resposta)

     se(resposta % 2 = 0) entao

        sPar <- sPar + resposta

        qPar <- qPar + 1

     fimse

     contaVal <- contaVal + 1

  ate(resposta = 0)

     

  mPar <- sPar / qPar

  limpatela

  escreval("---------------------------------")

  escreval("         Resultados")

  escreval("---------------------------------")

  escreval("Foram digitados ", contaVal, " valores")

  escreval("A média dos pares é ", mPar)

  escreval("---------------------------------")

Fimalgoritmo