Question

- 19. Faça um algoritmo que leia uma quantidade não determinada de números
positivos. Calcule a quantidade de números pares e ímpares, a média de valores pares e
a média geral dos números lidos. O número que encerrará a leitura será zero.
(visualg)

Answer 1

Algoritmo "semnome"

Var

   impar,par,x, j,num, positivo, mediaPar, media: inteiro

Inicio

    x<-2

    j<-0

     enquanto j <> x faca

       escreva(" digite o valor: ")

       leia(num)

        se (num mod 2=0) e (num<>0) entao

          par <- par + 1

        fimse

        se (num mod 2<>0) e (num<>0) entao

          impar <- impar + 1

          fimse

        se (num > 0) entao

        positivo <- positivo + 1

        fimse

         media <- media + num

        se (num mod 2=0) e (num<>0) entao

         mediaPar <- mediaPar + num

         fimse

        j<-j+1

        x<-j+2

        se (num <= 0) entao

        x <- x-2

        fimse

     fimenquanto

          escreval("")

          escreval(" a media dos valores é ",media/j)

          escreval("")

          escreval(" a media dos valores pares é ",mediaPar/par)

          escreval("")

          escreval(" exitem " ,positivo, " numeros positivos ")

          escreval("")

          escreval("total de numeros impares ",impar," e total de numeros pares " ,par)

Fimalgoritmo

      Tem como reduzir bastante mas resolvi deixar completão para você entender, ou pelo menos tentar. Abs

Answer 2

Um exemplo de algoritmo que calcula a quantidade de números pares e ímpares, a média de valores pares e  a média geral dos números lido, é:

Algoritmo "calcule os números"

Var

  impar,par,x, j,num, positivo, mediaPar, media: inteiro

Inicio  

   x<-2  

   j<-0

    enquanto j <> x faca  

     escreva(" digite o valor: ")  

      leia(num)  

       se (num mod 2=0) e (num<>0) entao  

         par <- par + 1  

       fimse

       se (num mod 2<>0) e (num<>0) entao  

         impar <- impar + 1  

         fimse

       se (num > 0) entao  

       positivo <- positivo + 1  

       fimse

        media <- media + num  

       se (num mod 2=0) e (num<>0) entao  

        mediaPar <- mediaPar + num  

        fimse

       j<-j+1  

       x<-j+2  

       se (num <= 0) entao  

       x <- x-2  

       fimse

    Fimalgoritmo

Leia mais em:

https://brainly.com.br/tarefa/15117166