Двумерные массивы в Delphi

[Vesnushka18]

Здравствуйте!
Подскажите пожалуйста как решит следующую задачу:
В данном двумерном массиве найдите элементы, для которых соответствующая строка и колонка равны между собой Определите наибольший общий делитель всех таких элементов.

Другими словами дана матрица размера nxn, необходимо определить есть ли в ней одинаковые строки и столбцы и взять элементы стоящие на пересечении равных столбца и строки.
Например матрица:
1 2 3 4
5 1 4 7
0 4 2 3
4 3 0 8
получается что первая строка и второй столбец равны(элемент =2); третья строка и третий столбец тоже равны (элемент= 2).
Не могу понять как написать цикл который сравнивает строки и столбцы и запоминает нужные элементы.
Заранее спасибо за помощь.

[GetMax]

получается что первая строка и второй столбец равны(элемент =2); третья строка и третий столбец тоже равны (элемент= 2).

Не только. Еще первая строка и первый столбец равны. Сумма = 10.

Не могу понять как написать цикл который сравнивает строки и столбцы и запоминает нужные элементы.

Для запоминания элементов надо ввести второй массив, в котором хранить нужные элементы. Цикл будет выглядеть так:

  l:=0;
  i:=1;
  While i <= 4  do
  Begin
    Sum:=0;
    For j:=1 to 4 do Sum:=Sum+Mas[i,j];
    q:=1;
    Sum1:=0;
    While q <= 4 do
    Begin
      For p:=1 to 4 do Sum1:=Sum1+Mas[p,q];
      If Sum = Sum1 then
      Begin
        Inc(l);
        Vekt[l]:=Mas[i,q];
        Sum1:=0
      End;
      Sum1:=0;
      Inc(q);
    End;
    Inc(i)
  End;
  If l > 0 then
  Begin
    Writeln('Polucheny elementy: ');
    For i:=1 to l do Write(Vekt[i]:3);
    Writeln
  End
  Else
  Writeln('Elementy ne naydeni');

Вам осталось определить наибольший общий делитель

[Vesnushka18]

Спасибо, но что за сумма? Мне не нужно находить ни какую сумму, только определить какие строки и столбцы равны и запомнить элементы стоящие на их пересечении.

[GetMax]

только определить какие строки и столбцы равны и запомнить элементы стоящие на их пересечении.

Так?

Var
  Mas:array[1..4,1..4] of Byte;
  Vekt:array[1..10] of Byte;
  i,j,p,q,l:Byte;
  Mn:Set of Byte;
  Flag:Boolean;
Begin
  //Вводите массив
   i:=1;
  l:=0;
  Mn:=[];
  While i <= 4 do
  Begin
    For j:=1 to 4 do Include(Mn,Mas[i,j]);
    q:=1;
    Flag:=False;
    While q <= 4 do
    Begin
      For p:=1 to 4 do
      If  Not (Mas[p,q] in Mn) then
      Begin
        Flag:=True;
        Break
      End;
      If  Flag = False then
      Begin
        Inc(l);
        Vekt[l]:=Mas[i,q];
      end;
      Flag:=False;
      Inc(q)
    End;
    Mn:=[];
    Inc(i)
  End;
  For i:=1 to l do Write(Vekt[i],' ');
  Readln;
End.

[Vesnushka18]

не знаю, не могу разобраться в вашей программе, не знаю что такое set of :-( проще ни как не получится?

[GetMax]

не знаю что такое set of

Это тип множество. Смотри любой учебник по Pascal.

проще ни как не получится?

Возможно, можно и проще. Это всего лишь мое видение решения этой задачи. Вы можете воспользоваться им или предложить свой вариант кода. С радостью на него посмотрю.