Найдите суммы положительных и отрицательных чисел из заданных n чисел. Определите наибольшее из сумм по абсолютной величине

Question

Информатика

Амата

31 марта, 10:29

Найдите суммы положительных и отрицательных чисел из заданных n чисел. Определите наибольшее из сумм по абсолютной величине

+4

Ответы (1)

Знаете ответ на вопрос?

Арсеныч · Answer 1

Program_z1;

var n, So, Sp, i:integer;

begin

read (n) ;

So:=0;

Sp:=0;

for i:=1 to n do begin

if i>0

then Sp:=Sp+i

else So:=So+i;

end;

if So>Sp

then write ('So', So)

else write ('Sp', Sp) ;

readln; readln;

end.