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 "algoritmo"
var
    valores : vetor[0..19] de inteiro
     i, soma, negativos: inteiro

inicio
i <- 0
soma <- 0
negativos <- 0

enquanto i < 20 faca         
escreva("Digite o", i + 1, "º valor: ")         
leia(valores[i])                  
se valores[i] < 0 entao           
negativos <- negativos + 1         
senao             
soma <- soma + valores[i]         
fimse                  
i <- i + 1
fimenquanto

escreval("")
escreval("A soma dos números positivos é", soma)
escreval("A quantidade de números negativos é", negativos)

fimalgoritmo