Расположить в порядке возрастания их абсолютных величин.

[Camelot_2012]

В матрице А (mxn) элементы главной диагонали расположить в порядке возрастания их абсолютных величин.
Не могу понять что дальше писать!

Program zadacha;
Uses crt;
const m=3;
      n=3;    
var a:array[1..m,1..n] of integer;
    i,j:integer;
begin clrscr;
for i:=1 to m do
for j:=1 to n do
begin
write('vvedite a[', i, ',', j, ']: ');
read(a[i,j]);
end;
for i:=1 to m do
begin
writeln;
for j:=1 to n do
write(a[i,j]:6);
end;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,i]

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

во-первых, зачем Вам ДВЕ константы размерности массива: M и N - главная диагональ определена ИСКЛЮЧИТЕЛЬНО в квадратной матрице, а значит либо M должно быть равно N, либо (лучше!) оставьте одну константу:

const 
     n=3;    
var a:array[1..n,1..n] of integer;

ну, разумеется, везде вместо m поставьте n



во-вторых, вместо

for i:=1 to m do
for j:=1 to n do
begin
if a[i,i]

напишите что-то вроде:

  {сортируем элементы главной диагонали}
  for i := 1 to n- 1 do 
      for j := i + 1 to n do
        if abs(a[i,i]) < abs(a[j,j]) then begin
          k := a[i,i];
          a[i,i] := a[j,j];
          a[j.j] := k;
        end;

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


p.s. код писал тут. не проверял...

p.p.s. если что-то непонятно - спрашивайте.

[Hacker19_90]

эм... одна поправочка
данный код

{сортируем элементы главной диагонали}
  for i := 1 to n- 1 do 
      for j := i + 1 to n do
        if abs(a[i,i]) < abs(a[j,j]) then begin
          k := a[i,i];
          a[i,i] := a[j,j];
          a[j.j] := k;
        end;

отсортирует по убыванию...

[Serge_Bliznykov]

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

отсортирует по убыванию...

Hacker19_90, ваша правда! Так и есть. Ошибся я со знаком!
надо наоборот:

{сортируем элементы главной диагонали}
...
        if abs(a[i,i]) > abs(a[j,j]) then begin
...