Задача. PASCAL

[LeNus'Ka]

помоги мне, пожалуйста, надо решить задачу =(
Дана матрица 8*8. Найти такие k, что k-ая строка совпадает с k-ым столбцом (оформит в виде процедуры)

[Serge_Bliznykov]

const MaxN = 8;
type MyArray = array[1..MaxN,1..MaxN] of integer;
procedure FindK(M : MyArray; var FoundK : integer);
var i, j, StartK : integer;
  FlagFound : boolean;
begin
  StartK := FoundK+1; {поиск будем продолжать от переданного значения FoundK}
  FoundK := 0; {ноль - если такое K не нашли}
  FlagFound := false;
  while (Not FlagFound) and (StartK<=MaxN) do 
  begin
     FlagFound := true; {считаем, что строка и столбце сопадают}
     for i:=1 to MaxN do
       if M[i,StartK] <> M[StartK,i] then FlagFound := false;
     if Not FlagFound then Inc(StartK);
  end;
  if FlagFound then FoundK := StartK;
end;

var
  A : MyArray;
  i, j, K : integer;
begin
   {тут заполнение A}
   Randomize;
   for  i:=1 to 8 do
    begin
      for j:=1 to 8 do begin
        A[i,j]:= random(2)+1; {заполняем единицами и двойками случайным образом}


        {Эти две строчки ниже, 
          чтобы 1 строка совпадала с 1-м столбцом (туда заносим единицу),
          а 5-я строка совпадала с 5-м столбцом - туда заносим двойку.
         Это исключительно для отладки 
          - можно заносить любые цифры в любые строки/столбцы,
              а лучше вообще убрать эти две строчки...            
          - это никак на алгоритм поиска не влияет!!!!!}
        if (i=1) or (j=1) then A[i,j] := 1;
        if (i=5) or (j=5) then A[i,j] := 2;
        Write(A[i,j]:3);
      end;
      WriteLn;
   end;
    
   K := 0;
   repeat
      FindK(A, K);
      if K>0 then WriteLn('K=',K);
   until K=0;   
   WriteLn('Done.');
   Readln;
end.

[LeNus'Ka]

Спасибо большое! =) только... можно сделать так, чтобы массив вводился с клавиатуры?

[Serge_Bliznykov]

можно сделать так, чтобы массив вводился с клавиатуры?

это, как я понимаю, Вы у меня разрешение спрашиваете?!
можно, меняйте!

p.s. а если, вдруг, Вам интересно, КАК это сделать - то достаточно выкинуть randomize и вместо A[i,j] := random(...)
написать
Read(A[i,j])
ну и вывод массива Write(A[i,j]) и WriteLn надо в цикле убрать,
а вывести массив отдельно, после ввода...

[LeNus'Ka]

Еще раз спасибо Вам...) но мне тут некоторые моменты непонятны=(

[Serge_Bliznykov]

но мне тут некоторые моменты непонятны=(

сочувствую...

маленький оффтоп..
Анекдот в тему.

Профессор после лекции, на которой он всю доску исписал выводом какой-то формулы, обращается к студентам:
— У кого-нибудь есть вопросы по выводу формулы?
Студент:
— Мне непонятно преобразование Alpha в Betta...
Профессор:
— Это не вопрос. Это утверждение. Вопросы у кого-нибудь есть?!