Определить является ли целочисленная матрица симметричной относительно главной диагонали

[Kolya23]

Определить является ли целочисленная матрица симметричной относительно главной диагонали. При отсутствии симметрии заменить элементы на минимальный из них.Pascal

[Stilet]

Попытки есть?
Матрицу хотя бы ввести кодом сможешь?

[newerow1989]

var a:array[1..7,1..7] of byte;
    i,j,min:byte;
    yes:boolean;
begin
   Randomize;
   For i:=1 to 7 do
   begin
      For j:=1 to 7 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   {For i:=1 to 7 do
      For j:=i to 7 do
         a[i,j]:=a[j,i];
   For i:=1 to 7 do
   begin
      For j:=1 to 7 do
         Write(a[i,j],'  ');
      Writeln;
   end;}
   yes:=true;
   For i:=1 to 7 do
      For j:=i to 7 do
         yes:=yes and (a[i,j]=a[j,i]);
   If yes then
      Writeln('yes') else
   begin
      Writeln('no');
      min:=a[1,1];
      For i:=2 to 7 do
         If min>a[i,i] then
            min:=a[i,i];
      For i:=1 to 7 do
         a[i,i]:=min;
      For i:=1 to 7 do
      begin
         For j:=1 to 7 do
            Write(a[i,j],'  ');
         Writeln;
      end;
   end;
   Readln;
end.

Сойдет?
То, что в фигурных скобках, - это принудительное приведение матрицы симметричной относительно главной диагонали

[Kolya23]

Более чем ! завтра сдавать программы все разобрал кроме этой! спасибо!!!

[newerow1989]

Пожалуйста!