Дан массив x(n,m). Удвоить элементы тех строк массива на главной диагонали которых стоит отрицательные элементы.

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

Исправляй, иначе тема будет закрыта.

for i:=1 to n do
for j:=1 to n do
  if a[i,i]<0 then
     a[i,j]:=2*a[i,j];

СПС .

Оззя, а на кой лишние сравнения?

for i:=1 to n do
  if a[i, i] < 0 then
    for j:=1 to n do a[i,j]:=2*a[i,j];