Отсортировать нечетные столбцы массива по возрастанию - Turbo Pascal - Ответ 1154558

  const n=5;
  var a:array [1..n,1..n] of integer;
  i,j,t,k:integer;
 
begin
 
 
       for i:=1 to n do
       begin
       for j:=1 to n do
         begin
         a[i,j]:=random(n)+1;
         write(a[i,j]:3);
         end;
         writeln;
         end;
 
 
        {sort perestanovka}
 
        j:=1;
          while j<=n do
          begin
 
          for i:=1 to n-1 do
            begin
            for k:=i+1 to n do
             begin
                   if a[k,j]<a[i,j] then   begin
                                           t:=a[i,j];
                                           a[i,j]:=a[k,j];
                                           a[k,j]:=t;
                                           end;
              end;
            end;
 
 
 
          j:=j+2;
            end;
 
 
       writeln('*****Sorted*****');
           for i:=1 to n do
       begin
       for j:=1 to n do
         begin
 
         write(a[i,j]:3);
         end;
         writeln;
         end;
 
 
        readln;
 
end.