Сортировка элементов в матрице

[McFrey]

На главную диагональ матрицы А(К,К), К =< 100 (=< - меньше или равно) поместить наибольшие элементы этой матрицы (сначала наибольший, затем следующий по величине и т.д.), а диагональные элементы - на место наибольших.

[g101k]

Какой язык программирования?
Или тебе в матлаб?

[McFrey]

все это в паскале

[AVer]

Использовать промежуточный массив 3х(К*К) для хранения значений и координат элемента. Отсортировать его по возрастанию значений, и затем первые К элементов вставляем в диагональ, а элементы оттуда по координатам из массива.

[McFrey]

а по подробнее можно?

[Serge_Bliznykov]

можно и поподробнее...

(*
На главную диагональ матрицы А(К,К), К =< 100 (=< - меньше или
равно) поместить наибольшие элементы этой матрицы (сначала
наибольший, затем следующий по величине и т.д.), а диагональные
элементы - на место наибольших.
*)

type
  IndexArray = record
     Row,Col : integer
  end;

Const
  MaxK = 100;

var
  A : array[1..MaxK, 1..MaxK] of integer;
  SortArr : array[1..MaxK*MaxK] of IndexArray;
  OneIndex : IndexArray;
  i, j, K, m, t : integer;
begin
  Randomize;

  WriteLn('Введите размерность массива K (1<=K<=100) :');
  {Readln(K);}
  K := 7;

  {заполнение исходного массива}
  for i:=1 to K do
    for j:=1 to K do
      A[i,j] := Random(100); {случайные числа от 0 до 99}

  {вывод исходного массива на экран}
  WriteLn('Исходная матрица: ');
  for i:=1 to K do begin
    for j:=1 to K do
      Write(A[i,j]:4,' ');
    WriteLn;
  end;
  WriteLn;

  {подготовим временный массив SortArr с индексами для сортировки
   Внимание! ВАЖНО!
       Сразу исключим из сортировки элементы главной диагонали!
       (их индексы НЕ будем помещать в массив)}
  m := 0;
  for i:=1 to K do
    for j:=1 to K do
      if i<>j then begin
        inc(m);
        SortArr[m].Row := i;
        SortArr[m].Col := j;
      end;


  (* *** Сортировка *** *)
  {отсортируем временный массив SortArr по ЗНАЧЕНИЯМ из массива A}

  {сортировка массива по убыванию методом простых обменов ("пузырька") }
  for i:=1 to m-1 do
    for j:=i+1 to m do
      if A[SortArr[i].Row, SortArr[i].Col] <
            A[SortArr[j].Row, SortArr[j].Col] then
      begin
        OneIndex := SortArr[i];
        SortArr[i] := SortArr[j];
        SortArr[j] := OneIndex
      end;


  {для проверки правильности работы алгоритма выведем
     наибольшие элементы массива A}
  WriteLn('Отладочная информация! Первые ',K,
      ' наибольших элементов (без учёта гл.диагонали): ');
  for i:=1 to K do
    Write('A[',SortArr[i].Row,',',SortArr[i].Col,'] = ',
       A[SortArr[i].Row, SortArr[i].Col]:4,'   ');
  WriteLn;
  WriteLn;

  {теперь всё просто. Поместим найденные наибольшие элементы
  на место элементов главной диагонали, а диагональные - на места
  наибольших элементов}
  for i:=1 to K do begin
    t := A[ i, i];
    A[ i, i] :=A[SortArr[i].Row, SortArr[i].Col];
    A[SortArr[i].Row, SortArr[i].Col] := t;
  end;

  {выведем полученный результат}
  {вывод исходного массива на экран}
  WriteLn('Результирующая матрица: ');
  for i:=1 to K do begin
    for j:=1 to K do
      Write(A[i,j]:4,' ');
    WriteLn;
  end;


  Readln
end.

[McFrey]

Огромное спасибо

[McFrey]

Уважаемый Serge_Bliznykov, составленная вами программа оказалось не корректна. По словам преподавателя должны по диагонали быть выстроены все элементы, в том числе и с учетом диагональных, и еще данное задание следует выполнить без использования типов. Ваши предложения?...т.к. я сломал всю голову, но так и не понимаю как это сделать.

[McFrey]

Люди, спасайте...ау