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

Question

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

anna1082002 · Answer

Var i,n,a,sum:integer; begin readln(n);sum:=0;for i:=1 to n do begin readln(a);if a 0 thensum:=sum+aend; writeln(sum) end....

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

Популярные вопросы