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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.