двумерный массив Pascal

[Cam_Wexler]

Всем Добрый вечер!)
Есть одна задачка, с которой все бьюсь, а до конца все никак довести не могу. Все, что-то не то выдает.
вот задача:
Квадратный массив размером М на М заполняется числами из входного текстового файла. Исходный массив распечатывается. Главную диагональ массива упорядочить по убыванию методом выбора. Переделанный массив распечатать.
Количество строк и столбцов -10. Тип обработки данных - целые

очень надеюсь на вашу помощь) очень хочется с ней разобраться)

[RUSt88]

главная диагональ - индексы строки и столбца равны, i = j

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

[G0NZIK]

Что именно у тебя не получается?пококретней пожалуйста

[Cam_Wexler]

не могу найти главную диагональ и отсортировать ее по убыванию
если у меня матрица квадратная, то можно рассмотреть как одномерный массив. Создам B:array[1..10] of integer;

должно выполняться по условию:
for i:= 1 to m do
а вот что дальше писать? как отсортировать? не понимаю.

[RUSt88]

не могу найти главную диагональ

ты читать умеешь?

главная диагональ - индексы строки и столбца равны, i = j

[Grag]

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

если у меня матрица квадратная, то можно рассмотреть как одномерный массив. Создам B:array[1..10] of integer;

Если у тебя матрица квадратная, то это уже двумерный массив
B:array[0..9,0..9] of integer. И отвыкайте от пионерских привычек индексировать массивы с 1. Потом, когда перейдете на Delphi и будете работать с динамическими структурами это вам отрыгнется горькой отрыжкой

Или ты хотел загнать элементы главной диагонали в отдельную одномерную матрицу, сделать сортировку и заполнить главную диагональ уже отсортированными элементами вспомогательной матрицы?

[Cam_Wexler]

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

Или ты хотел загнать элементы главной диагонали в отдельную одномерную матрицу, сделать сортировку и заполнить главную диагональ уже отсортированными элементами вспомогательной матрицы?

да)

выложу всю свою программу:

 program lab;

type masr = array [1..10, 1..10] of integer;
var
A:masr;
B: array [1..10] of integer;

z,i,j, m, n,  x, Num:integer;
fin, fout: text;
label vvod_m;
begin
{otkritie vhodnogo i vihodnogo failov}
 assign(fout, 'lab.res');
 rewrite(fout);
 assign(fin, 'DATI.txt');
 reset(fin);
{vvod kol-va strok massiva}
 vvod_m:
  writeln('vvedite chislo strok i stolbcov massiva');
 readln(m);
  if (m<2) or (m>10) then
 begin
  writeln('nedopustimoe znachenie!');
  goto vvod_m;
 end;

{zapolnenie massiva chislami iz faila}
 for i:=1 to m do
  for j:=1 to m do
   read(fin, A[i,j]);
{zakritie vhodnogo faila}
 close(fin);
{raspechatla ishodnogo massiva}
 writeln(fout, 'ishodhiy massiv iz ', m, 'x' ,m, ' elementov');
 for i:=1 to m do
 begin
  for j:=1 to m do
   write(fout, A[i,j]:5);{pechat tekushey stroki}
  writeln(fout);
 end;
 writeln(fout);
 {poisk glavnoy diagonali i ee sortirovka po ubivaniyu}
      for i:=1 to M do
    begin
    X:=A[i]; Num:=i;
      for j:=i+1 to M do
   if A[j]<M then
    begin
     X:=A[j]; Num:=j;
    end;
      x:=A[i];
    A[i]:=A[Num];
    A[Num]:=x;
    end;
   writeln('massiv otsortirovan');

  {pechat otsortirivannogo massiva}
  writeln(fout, 'sortirovanniy massiv');
  for i:=1 to m do begin
  write (fout, A[i,j]:5);
  writeln(fout); end;
  close(fout);
  END.

[G0NZIK]

Мда.....
после VB 6.0 так трудно вспоминать Pascal

[Cam_Wexler]

эх...видимо никто мне не поможет

[Z1000000]

Вот сортировка выбором главной диагонали по убыванию.

i:=1;
repeat
max := A[i,i];
for j:=i to N do 
 if A[j,j] > max then max := A[j,j];
tmp := A[i,i];A[i,i] := A[j,j];A[j,j]:=tmp;
i := i+1;
until (i=N)