В матрице nxn упорядочить по возрастанию элементы четных столбцов

kosmas94

В матрице nxn упорядочить по возрастанию элементы четных столбцовпомогите решить
1 ответ

kosmas94

Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,k,n:integer;
    jmin,t:integer;
Begin
    Randomize;
    Repeat
     write('Введите N: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=-15+random(31);
        write(A[i,j]:4);
      End;
      writeln;
    End;
    i:=2;
    While i<=n do
    Begin
      For k:=1 to n do
      Begin
        jmin:=k;
        For j:=k+1 to n do
         if A[j,i]<A[jmin,i] then jmin:=j;
        if jmin<>k then
        Begin
          t:=A[jmin,i];
          A[jmin,i]:=A[k,i];
          A[k,i]:=t;
        End;
      End;
      i:=i+2;
    End;
    writeln('Преобразованная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
End.