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