Упорядочить колонки матрицы по возрастанию

[wlll]

Упорядочить колонки матрицы по возрастанию
Паскаль....помогите ато не получается(

[Зелёный]

А матрица как задаётся? Двумерный массив или ещё что?

[wlll]

двохмерный.....

program z5;
 uses crt;
 var a:array[1..5,1..5] of integer;
 k,i,j,c:integer;
  begin
  clrscr;
 for i:=1 to 5 do
  for j:=1 to 5 do
  a[i,j]:=random(10)-3;
  for i:=1 to 5 do
    begin
     for j:=1 to 5 do
     write('  a[',i,',',j,']=',a[i,j]);
     writeln;
    end;
    k:=0;
   for i:=1 to 4 do
   for j:=i+1 to 5 do begin
   if a[i,j]>a[i+1,j] then
     begin
     c:=a[i,j];
     a[i+1,j]:=a[i,j];
     a[i,j]:=c;
     k:=k+1;
     end;end;
   writeln('rezultat');
   for i:=1 to 5 do
      begin
      for j:=1 to 5 do
      write('  a[',i,',',j,']=',a[i,j]);
      writeln;
      end;
      writeln('kilkist perestanovok=',k);
   readln;
   end.

[wlll]

помогите найти ошибку(

[Mad_Cat]

Упорядочить колонки матрицы по возрастанию
Паскаль.

uses crt;
const 
  N = 20;
  M = 30;
type 
  arr2 = array[1..M,1..N] of integer;
procedure createArr2(var a:arr2;ma,na:integer);
var i,j:integer;
  begin
  randomize; 
  for i:=1 to ma do 
  for j:=1 to na do 
    a[i,j]:=random(25); 
  end;
procedure printArr2(var a:arr2;ma,na:integer);
var i,j:integer;
  begin
  for i:=1 to ma do 
    begin
    for j:=1 to na do 
      write(a[i,j]:3); 
    writeln;
    end;
  end;
procedure sortArray(var a:arr2;ma,col:integer);
var i,j,t:integer;
  begin
  for i:=1 to ma do 
  for j:=1 to ma-i do 
    if (a[j,col]>a[j+1,col]) then
      begin
      t:=a[j,col];
      a[j,col]:=a[j+1,col];
      a[j+1,col]:=t;
      end;
  end;

var b:arr2;
    n1,m1,k:integer;
begin
n1:=5;
m1:=6;
createArr2(b,m1,n1);
writeln('Initial Array:');
printArr2(b,m1,n1);
for k:=1 to m1 do
  sortArray(b,m1,k);
writeln('Sorted Array:');
printArr2(b,m1,n1);
end.

[Зелёный]

А вот ещё вопрос...а как определяется это самое возрастание? Какой столбец считается меньшим? Там же не один элемент.Или там в каждой строке просто нужно все элементы по возрастанию расставить?

[wlll]

в каждой строке просто нужно все элементы по возрастанию расставить

[wlll]

а полегче никак нельзя?)

[puporev]

а полегче никак нельзя?)

Можно....

program z5;
uses crt;
var a:array[1..5,1..5] of integer;
    k,i,j,c:integer;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
    a[i,j]:=random(10)-3;
    write(a[i,j]:4);
   end;
  writeln;
 end;
for j:=1 to 5 do  {все столбцы}
for i:=1 to 4 do  {сортируем}
for k:=i+1 to 5 do
if a[i,j]>a[k,j] then
 begin
  c:=a[i,j];
  a[i,j]:=a[k,j];
  a[k,j]:=c;
 end;
writeln('rezultat');
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.