Media numero pares...

[Jackson Roberto Santana 0]

Bom pessoal... Ja tentei de todas as formas que conheço e nada... Preciso calcular a média dos números pares...

O exercicio pede o seguinte:

 

Faça um algoritmo que receba vários números, calcule e mostre:

a. A soma dos números digitados

b. A quantidade de números digitados

c. A média dos números digitados

d. O maior número digitado

e. O menor número digitado

f. A média dos números pares

Finalize a entrada de dados caso o usuário informe o valor 0.

 

Meu algoritimo ficou assim:

 

algoritmo "Exercicio 03-07"
var
numero,soma,quantidade,maior,auxiliar,menor,media,soma_pares,media_pares,quantiade_pares:real
inicio
escreval("Este programa tem o objetivo de escontrar:")
escreval("A soma dos números digitados.")
escreval("A quantidade de números digitados.")
escreval("A média dos números digitados.")
escreval("O maior número digitado.")
escreval("O menor número digitado.")
escreval("A média dos números pares.")
escreval("Para finalizar a entrada de dados, digite 0.")
repita
  escreva("Por favor, digite um número para que sejam feitos os cálculos a cima: ")
  leia(numero)
  se numero<>0 entao
     soma<-soma+numero
     quantidade<-quantidade+1
     se numero>maior entao
        maior<-numero
     fimse
     se auxiliar=0 entao
        menor<-numero
     senao
        se numero<auxiliar entao
           menor<-numero
        fimse
     fimse
     se numero mod 2=0 entao
        soma_pares<-soma_pares+numero
        quantidade_pares<-quantidade_pares+1
        media_pares<-soma_pares/quantidade_pares
     fimse
     auxiliar<-numero
     media<-soma/quantidade
  fimse
ate numero=0
escreval("A soma dos números digitados é:",soma,".")
escreval("A quantidade de números digitados é:",quantidade,".")
escreval("A média dos números digitados é:",media,".")
escreval("O maior número digitado é:",maior,".")
escreval("O menor número digitado é:",menor,".")
escreval("A média dos números pares é:",media_pares,".")
fimalgoritmo

 

Gostaria de pedir soh mais uma coisinha... Sera que alguem de voces conseguem diminuir meu codigo, sei la... Existe alguma maneira que eu possa remover algumas variaveis, ele parece tao poluido...

 

Desde ja...

Grato...

[Dzago 2]

Jackson,

 

Para minimizar as variaveis basta você fazer a média já no escreval, ou seja, escreval ("blablabla", (soma/n)).

E para fazer a media dos pares é só fazer:

 

se (x%2=0) entao
     se (x<0) entao
        x<--x
     fimse
  par<-(par+x)
  c1<-(c1+1)
fimse

 

Flw