Упорядочить массив

[zena]

Упорядочить массив

Помогите решить вот такую задачку(В Паскале, на делфи - без разницы, но лучше на делфи:tehnari_ru_942:
Создайте двумерный массив n х n. Упорядочить элементы столбцов массива по возрастанию.

 

[Vladimir_S]

Помогите решить вот такую задачку(В Паскале, на делфи - без разницы, но лучше на делфи:tehnari_ru_942:
Создайте двумерный массив n х n. Упорядочить элементы столбцов массива по возрастанию.

Zena, не валяйте дурака - Вы умеете писать программы и с этой пустячной задачкой вполне справитесь и без нас.

 

[zena]

Ну в паскале я немного умею, но вот что касается Delphi, то сталкивалась с ним только дважды, так и не поняв основы(и времени не хватает разобраться во всём, нужно к завтрашнему дню).
В паскале что-то накалякала:

var a:array[1..5,1..5]of integer;
    i,j,k,t,d:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
    for j:=1 to m do
    begin
        a[i,j]:=random(40)-20;
        write(a[i,j]:4);
    end;
    writeln;
end;
writeln;
for j:=1 to m do
for i:=1 to n-1 do
    begin
        k:=i;
        for d:=i+1 to n do
        if a[k,j]>a[d,j] then k:=d;
        t:=a[i,j];
        a[i,j]:=a[k,j];
        a[k,j]:=t;
    end;
writeln('Результат:');
for i:=1 to n do
begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
end;
readln;
end.

 

[Vladimir_S]

В паскале что-то накалякала:

Да уж. Накалякала. Ошибку на ошибке. Константы m и n не определены и не заданы, алгоритм упорядочения - тоже с кучей ошибок. Ладно, держите рабочий вариант на Паскале. А Delphi за часок-другой не освоите, и не пытайтесь. Очень непростая игрушка.

Uses CRT;
const
 n=5;
var
 a:array[1..n,1..n]of integer;
 i,j,k,t:integer;
begin
 clrscr;
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(40)-20;
     write(a[i,j]:4);
    end;
   writeln;
  end;
 writeln;
 for j:=1 to n do
  for i:=1 to n-1 do
   for k:=1 to n-i do
    if a[k,j]>a[k+1,j] then
     begin
      t:=a[k,j];
      a[k,j]:=a[k+1,j];
      a[k+1,j]:=t;
     end;
 writeln('Результат:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:4);
   writeln;
  end;
 readln;
end.

 

[zena]

Ой, это в разделе переменных я под самый конец заменила n и m на 5, а в самой программе не изменила.
А за код спасибо.