program TT;

var B: array [1..3, 1..4] of integer;

var i, j, count :integer;

begin

count:=0;

for i:=1 to 3 do

for j:=1 to 4 do

      begin

                write('Введите элемент: '); readln(B[i][j]);

                if B[i][j] < 0 then count:=count+1;

      end;

writeln(count);

end.