pascal задача про диагонали матрицы

[tanek]

Здравствуйте уважаемые форумчанины...
Не могли бы вы мне помочь в объяснении задания:
Задана матрица NхM, где 1<N<20, 1<M<40. Упорядочить элементы матрицы по возрастанию на каждой диагонали.

Ведь у матрицы бывает две диагонали: главная и побочная, и эти диагонали есть только в квадратных матрицах, а у меня прямоугольные.... Значит выходит, что не првильно сформулированно задание?((((

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

[Valio]

Не совсем верно. Диагональ есть везде.

Вот про эти диагонали идёт речь:

000000
000000
000000

000001
000000
000000

000010
000001
000000

000100
000010
000001

001000
000100
000010

и т.д.

[tanek]

Я узнала сегодня у преподавателя.... там идет речь о квадратной матрицы....
Упорядочивание элементов идет по главной диагонали и ее параллельной....

Но я ни как не могу придумать алгоритм работы(((

Не могли бы вы мне подсказать???
Заранее спасибо)))

[Valio]

Вот родил на работе за кружкой чая минут за 10.

Программа формирует рандомный массив, спрашивает у пользователя начало диагонали, а затем показывает числа на этой диагонали.

И я не думаю, что массив должен быть квадратным. Годится любой. 10 на 4 к примеру.

Program One;

Uses Crt;

Const xMax = 10;
       yMax = 4;

Var M : Array [1..xMax, 1..yMax] Of Integer;
    x, y, posX, posY : Integer;

Begin
ClrScr;
Randomize;
For y := 1 To yMax Do
    Begin
         For x := 1 To xMax Do
             Begin
                  M[x,y] := Random(90) + 10;
                  Write(M[x,y], ' ');
             End;
         Writeln;
    End;

Writeln;
Write('x : '); Readln(posX);
Write('y : '); Readln(posY);
Writeln;

While (posX <= xMax) And (posY <= yMax) Do
      Begin
           { ... }
           Write(M[posX, posY], ' ');
           posX := posX + 1; posY := posY + 1;
      End;


Readln;
End.

[Serge_Bliznykov]

рискну предположить, что требуется сортировка элементов на ВСЕХ диагоналей, параллельных главной диагонали (включая и на самой главной диагонали).

[Valio]

рискну предположить, что требуется сортировка элементов на ВСЕХ диагоналей

Это само собой. Просили пример как "шевелиться" по этим диагоналям, насколько я понял.

[tanek]

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

рискну предположить, что требуется сортировка элементов на ВСЕХ диагоналей, параллельных главной диагонали (включая и на самой главной диагонали).

Я была бы безумно рада, если вы бы мне подсказали))).....