Сортировка массива на Паскале

[MayBe]

Помогите, please!
нужно срочно решить задачку...
В матрице С (5х7) переставить столбцы по возрастанию сумм столбцов матрицы.

[Medved]

Опять... Начинается... Тут уже КУЧА таких задач разбиралась...

[Хыиуду]

См. раздел "Алгоритмы".

[MayBe]

Хыиуду, спасибо)

[MayBe]

хм... я попыталась написать программку... но она не работает(
Я конечно понимаю, что там наверняка оч много ошибок... но... аааа, я не знаю, где они...
ну не могу я понять эти массивы....
помогите, плиииз....
вот...

Код: Выделить всё

 type aa1=array[1..5] of integer;
     aa2=array[1..7] of aa1;
     bb1=array[1..7] of integer;
var a1:aa1; a2:aa2; b1:bb1;
    k,i,j,s:integer;
begin
   s:=0;
   for i:=1 to 7 do
     for J:=1 to 5 do
     readln(a2[i,j]);
         for j:=1 to 7 do
           begin
               s:=s+a2[i,j];
               1[j]:=s;
           end;
   for k:=1 to 4 do
     for i:=1 to 6 do
       if b1[j]>b1[j+1] then
         begin
           i:=b1[j];
           b1[j]:=b1[j+1];
           b1[j+1]:=i;
           a1:=a2[j];
           a2[j]:=a2[j+1];
           a2[j+1]:=a1;
        end;
   for i:=1 to 7 do
     begin
        for j:=1 to 5 do
           write (a2[i,j]:6);
            writeln;
     end;
end.

[Vovchik]

MayBe,пользуйтесь тегами
[ code]
[ /code]
а то безних не совсем привычно смотреть на код
!!!!!!!!!!!!!

[MayBe]

Vovchik, хорошо, я учту на будущее)

[un4-funeral]

вернее
совсем не привычно ((=

[MayBe]

=)) все, я исправилась))

[Хыиуду]

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