МАТРИЦЫ Опции

[Alex_Sh]

Помогите сделать задачу.

         ПРОСТО СРОЧНО НУЖНА!!!!!!!!!!!!!!!

      Дана матрица   размерности nxn  .  Для заданной матрицы найти такие k  , для которых  k-ая строка матрицы совпадает с  k-ым столбцом.

      Заранее благодару за помощь

[trminator]

Попробуй такое

Код

for i:=1 to n do
 for j:=1 to n do
 if a[i,j] = a[j,i] then inc(b[i]);

for i:=1 to n do if b[i] > n then write(i,' ');

А вообще это ЗАДАЧА, а не ВОПРОС.

Эх, конец семестра, хвостов у всех немеряно... пойду-ка тоже физику спишу у кого-нибудь... :-/

Кстати в коде ма-а-ленькая ошибка. Можно сказать, опечатка. Поищи

[zx1024]

Код

for i:=1 to n do
begin
 b[i] := 0;
 j := 1;
 while (a[i,j] = a[j,i]) and (j<=n) do
   inc (j);
 b[i] := j;
end;
for i:=1 to n do if b[i] > n then write(i,' ');

На 4 строки больше - зато и скорость больше.