program test;
var a:array[1..10,1..10]of integer; i,j,n,m,k,p:integer;
begin
Randomize;
//Заполнение массива случайным образом
write('Введите кол-во строк: ');readln(n);
write('Введите кол-во столбцов: ');readln(m);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(30)-15;
    write(a[i,j]:5);
   end;
  writeln;
 end;

// Поиск двух отрицательных элементов
for i:=1 to n do
begin
k:=0;
   for j:=1 to m do
      if(a[i,j]<0) then  k:=k+1;
if k=2 then writeln('Номер строки содержащий 2 отр. элемента -> ',i);
end;
end.