Опять Паскаль, вопрос!!!! Опции

[What_Ever]

Как можно сделать метод "пузырька" для двухмерной матрицы?! помогите, я замучилась писать эту прогу по ночам!!!!

[volvo]

Уточни, как должна производиться сортировка? Каждая строка (или столбец) отдельно, или "сквозная" (сортировать ВСЕ элементы матрицы)?

[What_Ever]

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

uses crt;
var a:array[1..100,1..100]  of integer;
i,j,n,k,l,m,b,t:integer;
begin
randomize;
clrscr;
writeln('vvedite n');
readln(n);
writeln('vedite m');
readln(m);
for i:=1 to n do
   for j:=1to m do
      a[i,j]:=random(100)-50;
for i:=1 to n do
   begin
      for j:=1 to m do
      write (' ',a[i,j]:3);
      writeln;
    end;
for i:=1 to m do
   begin
      for b:=1 to n-1 do
          for j:=1 to m do
             if a[j,b]>a[j,b+1] then
                begin
                  t:=a[j,b];
                  a[j,b]:=a[j,b+1];
                  a[j,b+1]:=t;
                 end;
    end;
 writeln;
 writeln;
for i:=1 to n do
   begin
      for j:=1 to m do
         write (' ',a[i,j]:3);
            writeln;
   end;
readln;
end.

М

теги.... мисс_граффити

[volvo]

Вот "сквозная сортировка по столбцам": Сквозная сортировка

Для строк надо чуть-чуть изменить...

Переезжаем в "Задачи"

[What_Ever]

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