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

ArturJan2020 ArturJan2020    3   31.05.2019 00:40    0

Ответы
Diifekt Diifekt  01.07.2020 10:18
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика