С клавиатуры вводится n целых чисел, несколько положительный и несколько отрицательных, найти сумму положительных. (паскаль) Помогите написать программу.
Answers & Comments
21sadtylers
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.
Answers & Comments
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.