Сортировка двумерного массива

[Makarov]

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

program sort;
uses crt;
var
  ar:array [1..5,1..5] of byte;
  a:array [1..5] of byte;
  i,j:byte;
  max,max1:integer;
begin
  clrscr;
  randomize;
  max:=0;
  for i:=1 to 5 do
   begin
    writeln;
    for j:=1 to 5 do
    begin
     ar[i,j]:=random(10);
     {write(ar[i,j],' ');}
    end;    
   end;
  for j:=1 to 5 do max:=max+ar[1,j];  
  writeln;
  for i:=2 to 5 do
   begin
     for j:=1 to 5 do
      begin
        max1:=max1+ar[i,j];
        
      end;
     if (max>max1) then 
      begin
        for j:=1 to 5 do
        begin
         a[j]:=ar[i,j];
         ar[i,j]:=ar[i-1,j];
         ar[i-1,j]:=a[j];         
        end;
        max:=max1;        
      end;
   end;
  for i:=4 to 5 do
   begin
    writeln;
    for j:=1 to 5 do write(ar[i,j],' ');    
   end;
  readln;
end.

Но говорят, что сложно решил. Можно проще. У кого есть идеи кинь хотя бы алгоритм. Просто в голову больше ничего не приходит.

[alexBlack]

И работает ? По моему еще одного цикла не хватает.
....
Вычисление суммы строки у Вас делается по нескольку раз для одной и той-же строки. Лучше сразу вычислить суммы строк и сохранить их в отдельный массив. Далее сортируем этот массив, а когда будут перестановки элементов, меняем еще и строки массива.

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

[puporev]

Программа в принципе неправильно составлена, она по-моему не должна работать.
Для сортировки вообще не нужен максимум, т. при сортировке обменом он нигде не участвует. Не нужны также никакие массивы.
Я делаю так:
1. создаю матрицу, только ее параметры не принимаю константами, т. к. размерв матрицы временно будут меняться.
2.считаю сумму в строках и ставлю ее в конце каждой строки.
3.Сортируя последний столбец, параллельно сортирую все строки.
4.Вывожу матрицу в нормальных размерах, без сумм.
На нерусском это выглядит так:

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j,sum,k,x:integer;
begin
clrscr;
write('Vvedite razmernost matricy n= ');readln(n);
randomize;
Writeln('Matrica:');
for i:=1 to n do
   begin
     for j:=1 to n  do
       begin
         a[i,j]:=random(21)-10;
         write(a[i,j]:4);
       end;
     writeln;
   end;
readln;
for i:=1 to n do
  begin
   sum:=0;
   for j:=1 to n do
    begin
      sum:=sum+a[i,j];
      a[i,n+1]:=sum;
    end;
  end;
for i:=1 to n-1 do
for k:=1 to n-1 do
if a[k,n+1]>a[k+1,n+1] then
    begin
      for j:=1 to n+1 do
        begin
          x:=a[k,j];
          a[k,j]:=a[k+1,j];
          a[k+1,j]:=x;
       end;
    end;
for i:=1 to n do
    begin
      for j:=1 to n do
      write(a[i,j]:4);
      writeln;
    end;
readln
end.

[Makarov]

Программа которая мной представлена работает. И выдает правильный результат. Спасибо за мысли. Теперь понял как надо сделать.

[Pinky)))]

Вы , ребят,извините , но по-моему вы немного тупите
Вам было бы не удобнее прописать после uses crt;
const n=5 ; m=6 ;{к примеру
а потом писать
var a: array [1..n,1..m] of integer;
и так далее ???

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[puporev]

const n=5 ; m=6 ;{к примеру

А если не известны заранее размеры массива? Тоже, умник нашелся..

[Shift_sk]

а по моему проще методом пузырька толко для матрицы!
считаем сумму первой строки и второй!сравиниваем потом вторую и третью
и так далее!

[progaagent]

var
mass:array[0..2,0..2]of integer;
i,j,x,y,b,z:integer;
buf:boolean;
begin
{ввод матрицы}
randomize;
for i := 0 to length(mass) - 1 do
for j := 0 to length(mass) - 1 do
mass[i,j]:=random(20)-11;
for i := 0 to length(mass) - 1 do
begin
for j := 0 to length(mass) - 1 do
begin
write(mass[i,j]:4,' ');
end;
writeln;
end;
writeln;
{сортировка матрицы}
for i := 0 to length(mass) - 1 do
begin
for j := 0 to length(mass) - 1 do
begin
b:=mass[i,j];
for x := 0 to length(mass) - 1 do
begin
for y := 0 to length(mass) - 1 do
begin
if b < mass[x,y] then
begin
z:=b;
b:=mass[x,y];
mass[i,j]:=b;
mass[x,y]:=z;
end;
end;
end;
end;
end;

{вывод матрицы}
for i := 0 to length(mass) - 1 do
begin
for j := 0 to length(mass) - 1 do
begin
write(mass[i,j]:4,' ');
end;
writeln;
end;
readln;
readln;
end.

[puporev]

Еще один умник... Читай хоть условие..

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