Программа в Паскале нужна, пожалуйста!! Даю 60 баллов!
С клавиатуры вводится последовательность из N чисел, положительных и отрицательных. Какая сумма чисел по модулю больше, положительных или отрицательных?
Answers & Comments
umka0812
Var a:array[1..255] of integer;n,i,p,o:integer; begin read(n); for i:=1 to n do begin read (a[i]); if (a[i]>0) then p:=p+a[i] else o:=o+a[i]; end; end.
Answers & Comments
begin
read(n);
for i:=1 to n do
begin
read (a[i]);
if (a[i]>0) then p:=p+a[i] else o:=o+a[i];
end;
end.