двумерный массив

[dagggggger]

для заданной матрицы размером 8 на 8 найти такие K , что k-я строка матрицы совпадает с k-м столбцом и найти сумму элементов в тех строках которые содержат хотя бы один отрицательный элемент.

[rubius2008]

for k:=1 to 8 do begin
  b:=true;
  for j:=1 to 8 do if a[k,j]<>a[j,k] then b:=false;
  if b then writeln('k=',k);
end;
for i:=1 to 8 do begin
  b:=false;
  for j:=1 to 8 do if a[i,j]<0 then b:=true;
  if b then begin 
    s:=0;
    for j:=1 to 8 do s:=s+a[i,j]; 
    writeln('сумма = ',s,' в ',i,' строке');
  end;
end;