const
  n = 3;
  m = 4;

var
  i, j, kol, sum :integer;
  
  a :array [1..n,1..m] of integer;

begin

  for i:= 1 to n do
    for j:= 1 to m do
      readln(a[i,j]);
  
  kol:= 0; sum:= 0;
  for i:= 1 to n do
    for j:= 1 to m do
      if a[i,j] < 0 then
      begin
        inc(kol);
        sum:= sum + a[i,j];
      end;
      
  writeln('В матрице ',kol,' отрицательных элементов');
  writeln('Их сумма равна ',sum);

end.