матрицы(Паскаль)

[mig44]

плиз хелп люди значит задачки такие.
1) для заданнй матрицы размером 8х8 найи такие К, что К-я строка матрицы совпадает с К-м столбцом.(оформить в виде процедуры)
2)Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент(оформить в виде функции).

[Chudo4258]

1) для заданнй матрицы размером 8х8 найи такие К, что К-я строка матрицы совпадает с К-м столбцом.(оформить в виде процедуры)

for i:=1 to 8 do
 begin
  p:=true; 
  for j:=1 to 8 do
   if a[i,j]<>a[j,i] then p:=false; // тут можно еще break, чтобы цикл зря не гонять
  if p then writeln(i);
 end;

2)Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент(оформить в виде функции).

Sum:=0;
for i:=1 to n do
 begin
  p:=false; 
  S:=0;
  for j:=1 to n do
   begin
    if a[i,j]<0 then p:=true; //если встретится отрицат. элемент
    S:=S+a[i,j]
   end;
  if p then Sum:=Sum+S; // если отрицат. встретился, то найденную сумму строки записываем о общую сумму
 end;

[mig44]

можно более подробно это описать или это все?

[Stilet]

В смысле более подробно?