Question

Программа в Паскале нужна, пожалуйста!! Даю 60 баллов!

С клавиатуры вводится последовательность из N чисел, положительных и отрицательных. Какая сумма чисел по модулю больше, положительных или отрицательных?

Answer 1

var sp, sm, cur:real; var i, n:integer; begin readln(n); for i := 1 to n do begin read(cur); if cur > 0 then sp := sp + cur; if cur < 0 then sm := sm + cur; end; if sp = -sm then writeln('|+| = |-|'); if sp > -sm then writeln('|+| > |-|'); if sp < -sm then writeln('|+| < |-|'); end.

Answer 2

var a:array[1..255] of integer;n,i,p,o:integer;
begin
read(n);
for i:=1 to n do
begin
read (a[i]);
if (a[i]>0) then p:=p+a[i] else o:=o+a[i];
end;
end.