[PASCAL]: Вывести элементы побочной диагонали квадратной матрицы в порядке возрастания

[Dr Rainman]

Дано квадратную матрицу размером n. Вивести елементы побочной диагонали в порядке возрастания.
Подскажите что и как. И если не сложно пример кода.

[Arigato]

Для начала надо определиться, что есть боковая диагональ?

[Dr Rainman]

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

Для начала надо определиться, что есть боковая диагональ?

если (например) [1..5 1..5] то диагональ будет от [1,5] до [5,1]

[p51x]

Так она всегда была побочной... Проблема в чем? В лоб скопируйте ее элементы в одномерный массив, отсортируйте его и выводите.

[Serge_Bliznykov]

более принято эту диагональ называть побочной

Диагонали

Определение
Главной диагональю матрицы называется диагональ, проведённая из левого верхнего угла матрицы в правый нижний.

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

[Aleksandr H.]

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

более принято эту диагональ называть побочной

Судя по стилю написания задания, вполне вероятно, что автор перевел задание на русский язык.

побочная:

iRow+iCol=N+1

[Dr Rainman]

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

Так она всегда была побочной... Проблема в чем? В лоб скопируйте ее элементы в одномерный массив, отсортируйте его и выводите.

Спасибо.

uses crt;
const n=5;
var
 m: array[1..n, 1..n] of integer;
a:array[1..n] of integer;
i,j,q,min,imin: integer;
begin
q:=0;
for i:=1 to n do
for j:=1 to n do
m[i,j]:= random(30);

    for i:=1 to n do
        begin
        for j:=1 to n do
        write(m[i,j],'  ');
        writeln;
        end;

        q:=1;
for i:=1 to n do
begin
for j:=1 to n do
 begin
if i+j=n+1 then  begin
a[q]:=m[i,j] ;
q:= q+1;
end;
end;
end;


for i:=1 to n-1 do
          begin
                min:=a[i];
                imin:=i;
                 for j:=i+1 to n do
                 if min>a[j] then
                 begin
                      min:=a[j];
                    imin:=j;
                 end;
               a[imin]:=a[i];
               a[i]:=min  ;
end;
  for i:=1 to n do
              writeln(a[i], '   ');
    end.