Question

1-escreva um software que leia 20 valores inteiros e ao fim exiba: a soma dos números positivos e a quantidade de valores negativos usando Estrutura de repetição REPITA-ATÉ

Answer 1

Em Pascal.

Program Pzim;var neg,c,n,soma:integer;Beginsoma:=0;c:=1;repeatwriteln('Informe o número: ',c);read(n); if (n > 0) then begin soma:=soma+n; end; if (n < 0) then begin neg:=neg+1; end; c:=c+1;until (c=21);
writeln('Soma dos números ',soma);Writeln('Quantidade de números negativos digitados ',neg);End.