Question

faça um programa que receba,como entrada uma lista de números positivo ou negativo finalizada com o número zero e forneça como saída a soma dos números positivo,a soma dos números negativo e a soma das duas somas parciais, fazer em portugol no visualg
​

Answer 1

Resposta:

Algoritmo "programa"

Var

   n, somap, soman:inteiro

Inicio

  n<-1

  soman<-0

  somap<-0

  enquanto n<>0 faca

       escreva("Digite um numero: ")

       leia(n)

       se n>0 entao

            somap<-somap+n

       senao

            soman<-soman+n

       fimse

  fimenquanto

  escreval("Soma dos positivos: ",somap)

  escreval("Soma dos negativos: ",soman)

  escreval("Soma das duas somas parciais: ",soman+somap)

Fimalgoritmo

Explicação: