Question

1) Escreva um algoritmo que leia 20 valores inteiros e ao final exiba.
a) a soma dos números positivos;
b) a quantidade de valores negativos.
Utilizando VisualG

Answer 1

algoritmo "ContabilizaNegativos"
// Função: 1) Escreva um algoritmo que leia 20 valores inteiros e ao final exiba.
//a) a soma dos números positivos;
//b) a quantidade de valores negativos.
// Autor: Clederson Cruz
// Data: 9/25/2016
var
    i: inteiro //Contador
    valor: inteiro //Valor a ser lido
    qtdNegativos: inteiro //Quantidade de valores negativos
    somatorioPositivo: inteiro //Somatório de números negativos
inicio
      para i de 1 ate 20 faca
           escreva("Informe o", i, "º valor: ")
           leia(valor)
          
           //Se o número for positivo, é somado
           se (valor > 0) entao
              somatorioPositivo := somatorioPositivo + valor
           senao
           //Se for negativo, é contabilizado
                se (valor < 0) entao
                   qtdNegativos := qtdNegativos + 1
                fimse
           fimse
      fimpara
     
      //Exibindo
      escrevaL("Somatório dos positivos: ", somatorioPositivo)
      escreva("Quantidade de negativos: ", qtdNegativos)
fimalgoritmo