сортировка

[слава_10]

отсортировать двумерный массив по убыванию методом пузырька.
спасибо

[Stilet]

Как пробовал?

[слава_10]

Сообщение от Stilet

Как пробовал?

переводом в одномерный
но к сожалению, ничего не вышло.

[BDA]

uses
  crt;

const
  h = 10;
  w = 10;

var
  a: array[0..h - 1, 0..w - 1] of integer;
  tmp: integer;
  i, j, x, y: integer;

begin
  writeln('Input height and width of matrix');
  readln(y, x);
  for i := 0 to y - 1 do
    for j := 0 to x - 1 do
    begin
      write('a[', i + 1, ',', j + 1, ']: ');
      readln(a[i, j]);
    end;
  for i := 0 to y - 1 do
  begin
    for j := 0 to x - 1 do
      write(a[i, j], ' ');
    writeln;
  end;
  
  for i := 0 to x * y - 2 do
    for j := i + 1 to x * y - 1 do
      if a[i div x, i - (i div x) * x]  < a[j div x, j - (j div x) * x] then
      begin
        tmp := a[i div x, i - (i div x) * x];
        a[i div x, i - (i div x) * x] := a[j div x, j - (j div x) * x];
        a[j div x, j - (j div x) * x] := tmp;
      end;
      
  writeln;
  for i := 0 to y - 1 do
  begin
    for j := 0 to x - 1 do
      write(a[i, j], ' ');
    writeln;
  end;
  readln;
end.

Возможно, можно проще

[Stilet]

к сожалению, ничего не вышло.

Соболезную )