задача...квадратная матрица Опции

[J.O]

помогите пожалуйста с решением задачи:
дана целочисленная квадратная матрица размерностью N.Упорядочить по возрастанию элементы побочной диагонали!

заранее спасибо!

[APAL]

4. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!

[Флогримм]

J.O, привет! помогу тебе (как-никак я тебя сюда напрвил :) )
вот:

const k=100;
var
  n,i,j,hlp:byte;
  mas: array[1..k,1..k] of byte;
begin
  randomize;
  write('n> ');
  readln(n);

  for i:=1 to n do
    for j:=1 to n do mas[i,j]:=random(89)+10; {чтоб не набивать массив вручную:) }

  writeln;
  for i:=1 to n do begin
    for j:=1 to n do write(mas[i,j]:3);
    writeln;
  end; {вывод массива}

  for j:=1 to n-1 do begin {сортировка}
    for i:=j to n-1 do begin
      if mas[j,n+1-j]>mas[i+1,n-i] then begin
        hlp:=mas[j,n+1-j];
        mas[j,n+1-j]:=mas[i+1,n-i];
        mas[i+1,n-i]:=hlp;
      end;
    end;
  end;

  writeln;
  for i:=1 to n do begin
    for j:=1 to n do write(mas[i,j]:3);
    writeln; 
  end; {вывод нового массива}
end.

[volvo]

Флогримм
А что, элемент с индексами [n, 1] к побочной диагонали уже не принадлежит?

[Флогримм]

угу, смотрите предыдущее сообщение, исправил

[Guest]

APAL
онромное спасибо!!!!очень выручил...действительно!