Найдите суммы положительных и отрицательных чисел из заданных n чисел.Определите наибольшее из сумм по абсолютной величине
Найдите суммы положительных и отрицательных чисел из заданных 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.
Не нашли ответ?
Похожие вопросы