Program PP;
var T:array [1..100,1..100] of integer;
a,b,c,r,s,n,z :integer;
begin
write('Introdu numarul de coloane  ' );readln(a);
write('Introdu numarul de rinduri  ' );readln(b);
begin
s:=0;
for r:=1 to a do
for c:=1 to b do
readln(T[r,c]);
end;
for r:=1 to a do
begin
writeln;
for c:=1 to b do
write(T[r,c], '  ');
end;
begin
writeln;
for r:=1 to a do
for c:=1 to b do
s:=s+T[r,c];
writeln('Suma numerelor este ',s);
end;
writeln;

for r:=1 to a do
for c:=1 to b do
if T[r,c] < 0  then z:=z+1;
writeln(' Numarul  numerelor negative este ' ,z);
end.