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

Question

Информатика

Святополк

25 февраля, 22:31

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

+1

Ответы (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.