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 " numeros "
var C, NNEG: inteiro 
VALOR, SOMAP: real 
inicio 
SOMAP <- 0 
NNEG <- 0 
para C de 1 ate 20 faca 
escreva (" Digite um valor: ") 
leia(VALOR) 
se ( VALOR > 0 ) entao 
SOMAP <- SOMAP + VALOR 
senao 
NNEG <- NNEG + 1 
fimse 
fimpara 
escreval("A soma dos número positivos digitados é: ",SOMAP) 
escreva("A quantidade de números negativos digitados é: ",NNEG)
fimalgoritmo