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

[ponchikpk]

Помогите пожалуйста!
Сортировкой вставками отсортировать все диагонали (вдоль главной) квадратной матрицы по возрастанию...
Как последовательность отсортировать я написал прогу, а как диагонали матрицы не понимаю Помогите... Заранее благодарю

[KingOfNothing]

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

[ponchikpk]

я что то не очень понял как это осуществить... длина же всех диагоналей различна

[KingOfNothing]

ваша сортировка сортирует только определенной длины массивы? передавайте актуальное количество элементов массива для сортировки в процедуру сортировки, то есть если два элемента, то сортируйте два, если 100, то 100.

[capta1n]

не обязательно вышеприведенными алгоритмами, хотя идея очевидная и очень хорошая - сейчас я реализую собственным, подождите пару минут

[ponchikpk]

capta1n! спасибо большое... но до меня до самого как то дошло неожиданно и получилось все ЮХУ!!!
Вот код моего варианта

uses crt;
const n=5;
var a,i,j,k,l:integer;
mas:array[1..n,1..n] of integer;
BEGIN

clrscr;
for i:=1 to n do
  for j:=1 to n do
    readln(mas[i,j]);
for i:=1 to n do
  begin
  for j:=1 to n do
    write(mas[i,j]:3);
    writeln;
  end;
writeln;

for i:=1 to n do
  for j:=1 to n do
    begin
    if i<=j then
      begin
      l:=j;
      for k:=i downto 2 do
        begin
        if mas[k,l]<mas[k-1,l-1] then
          begin
            a:=mas[k,l];
            mas[k,l]:=mas[k-1,l-1];
            mas[k-1,l-1]:=a;
          end;
        l:=l-1;
        end;
      end;
    if i>j then
      begin
      l:=i;
      for k:=j downto 2 do
        begin
        if mas[l,k]<mas[l-1,k-1] then
          begin
            a:=mas[l,k];
            mas[l,k]:=mas[l-1,k-1];
            mas[l-1,k-1]:=a;
          end;
        l:=l-1;
        end;
      end;
    end;


for i:=1 to n do
  begin
  for j:=1 to n do
    write(mas[i,j]:3);
  writeln;
  end;
readln;
END.

[capta1n]

вот:

program massiv;
const
 n = 6;
type
 item = array [1..n,1..n] of integer;
var
 a : item;
 i,k : byte;
procedure sort ( var b : item; n1 : byte);
var
 i,j,m,l : byte;
 buf : integer;
begin
  for i:=n1 downto 2 do
  begin
    l:=i;
    for k:=2 to n1-i+2 do
    begin
      buf:=b[i,k];
      j:=k-1;
      m:=l-1;
      while (j>=1) and (b[m,j]>buf) do
      begin
        b[m+1,j+1]:=b[m,j];
        dec(m);
        dec(j)
      end;
      b[m+1,j+1]:=buf;
      inc(l)
    end
  end;

  for k:=n1 downto 2 do
  begin
    l:=k;
    for i:=2 to n1-k+2 do
    begin
      buf:=b[i,k];
      j:=l-1;
      m:=i-1;
      while (m>=1) and (b[m,j]>buf) do
      begin
        b[m+1,j+1]:=b[m,j];
        dec(m);
        dec(j)
      end;
      b[m+1,j+1]:=buf;
      inc(l)
    end
  end

end;

begin
  randomize;
  for i:=1 to n do
   for k:=1 to n do
    a[i,k]:=random(100);

  for i:=1 to n do
  begin
    for k:=1 to n do write (a[i,k],'|');
    writeln
  end;

  writeln;
  writeln;
  sort (a,n);

  for i:=1 to n do
  begin
    for k:=1 to n do write (a[i,k],'|');
    writeln
  end;
  readln
end.