type vector=array[1..100,1..100] of longint;
var a:vector;
f:text;
i,j,m,n:byte;
s,t:longint;
begin
assign(f,'flip.in');reset(f);
read(f,n,m);
for j:=1 to n do
    for i:=1 to m do
    read(f,a[j,i]);
close(f);
s:=0;t:=0;
for j:=1 to n do begin
    for i:=1 to m do
        s:=a[j,i]+s;
    if s<0 then for i:=1 to m do
                    a[j,i]:=a[j,i]div-1;
    end;
for i:=1 to m do begin
    for j:=1 to n do
        s:=s+a[j,i];
    if s<0 then for j:=1 to n do
                a[j,i]:=a[j,i]div-1;
    end;
for i:=1 to n do
    for i:=1 to m do
        t:=t+a[j,i];

assign(f,'flip.out');rewrite(f);
write(f,t);
close(f);
end.