Программа в Паскале нужна, пожалуйста!! Даю 60 баллов!
С клавиатуры вводится последовательность из N чисел, положительных и отрицательных. Какая сумма чисел по модулю больше, положительных или отрицательных?
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
