read(a[i,j]);

readln

end

else

begin

randomize;

for I:=1 to n do

for J:=1 to m do

A[i,j]:=random(100)-20;

for i:=1 to n do begin

for j:=1 to m do

write(A[i,j],' ');

WriteLn;

End;

end;

sum:=0;

For I:=1 to n do

for J:=1 to m do

If A[i,j]<0 then

sum:=sum+abs(a[i,j]);

writeln('sum=',sum);

for i:=1 to n do

for j:=1 to m do

if i mod 2=0 then

if j mod 2<>0 then

a[i,j]:=sum;

for i:=1 to n do

begin

for j:=1to m do

write(a[i,j],' ');