Ответ:

Program z1;

var i,j:integer;

a:array[1..5,1..5] of integer;

begin

for i:=1 to 5 do begin

 for j:=1 to 5 do begin

   a[i,j]:=random(21)-10;

   write(a[i,j]:3);

   end;

   writeln();

 end;

for i:=1 to 5 do begin

 write('Строка ',i,': ');

 for j:=1 to 5 do begin

   if(a[i,j] < 0) then print(j);

   end;

   writeln();

 end;

end.