Матрица. Задана матрица X[N,N], где N<=15. В каждом столбце матрицы поменять местами минимальный элемент и элемент главной диагона

[_Marchel_]

Задана матрица X[N,N], где N<=15. В каждом столбце матрицы поменять местами минимальный элемент и элемент главной диагонали. Преобразованную матрицу вывести на экран.

помогите с программой пожалуйста.

[Dvoishnik]

что не получается?? в вод матрицы, поиск главной диагонали или поиск минимального??

[Dvoishnik]

Тут вроде такая же тема я думаю вам пригодится

[Aleksandr H.]

Dvoishnik Вы что?? там ж макс елемент а тут мин!!! ето не смежные задачи, никогда!!! (сарказм)

[Dvoishnik]

Aleksandr H. и правда как я мог не заметить?? никогда себя не прощу.(очень серьезно)

[newerow1989]

const n=15;
var x:array[1..n,1..n] of integer;
    i,j,min,z:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         x[i,j]:=Random(21);
         Write(x[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   Writeln;
   For j:=1 to n do
   begin
      min:=1;
      For i:=2 to n do
         If x[min,j]>x[i,j] then
            min:=i;
      z:=x[min,j];
      x[min,j]:=x[j,j];
      x[j,j]:=z;
   end;
   For i:=1 to n do
   begin
      For j:=1 to n do
         Write(x[i,j],'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

Сойдет?