С клавиатуры вводится n целых чисел, несколько положительный и несколько отрицательных, найти сумму положительных. (паскаль) Помогите написать программу.

Question

Артём

7 сентября, 03:51

+3

Ответы (1)

Знаете ответ на вопрос?

Данилыч · Answer 1

Var i, n, a, sum:integer;

begin

readln (n) ;

sum:=0;

for i:=1 to n do

begin

readln (a) ;

if a>0 then

sum:=sum+a

end;

writeln (sum)

end.