Программа в Паскале нужна, пожалуйста!! Даю 60 баллов! С клавиатуры вводится...

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.

Comments

что обозначается за "sp" "sm" "cur" "I" ?

---

сумма положительных, сумма отрицательных, текущее считанное, счетчик

---

спасибо

---

а что означает ('l+l=l-l') ?

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.

Comments

офигеть, как рационально используется память