Дана действительная матрица A размерности. Если минимальный элемент матрицы расположен над главной диагональю, а максимальный эл.

[Anton94.by]

Если я неправильно делаю, то напишите пожалуйста программу как надо.

[Anton94.by]

Тема: «Методы сортировок»

Выполнить задание по обработке матриц с использованием указанных методов сорти-ровок (согласно варианту).
Программу оформить с использованием подпрограмм (ввод, вывод, обработка, метод сортировки).
На печать выдавать всю исходную информацию, промежуточные результаты и преоб-разованную матрицу.

Задание:
Дана действительная матрица A размерности . Если минимальный элемент матрицы расположен над главной диагональю, а максимальный элемент — под главной диагональю, то упорядочить столбцы матрицы по не убыванию методом линейного выбора с подсчетом. В противном случае матрицу оставить без изменения.

[Anton94.by]

Если я неправильно делаю, то напишите пожалуйста программу как надо.

Задание вверху.

[Anton94.by]

Получается, никто не знает как делать такую программу?

[VIK_aka_TOR]

Сообщение от Anton94.by

Получается, никто не знает как делать такую программу?

вызов принят)))
по процедурам распихаешь сам... по сортировке вопросы ниже...

var
a: array [1..7,1..7] of integer;
i,j, imin,jmin, imax,jmax,max, min : integer;
begin
   // заполнение матрицы
   randomize;
    for i := 1 to 7 do
      begin
        for j := 1 to 7 do
          begin
          a[i,j] := random(90);
          write(a[i,j]:3);
          end;
      writeln;    
      end;
    // поиск максимума и минимума и их инексы в матрице
    max := a[1,1];
    min := a[1,1];
    imin := 1;
    jmin := 1;
    imax := 1;
    jmax := 1;
    for i := 1 to 7 do
        for j := 1 to 7 do
          begin
            if max < a[i,j] then
              begin
                imax := i;
                jmax := j;
                max := a[i,j];
              end;
            if min > a[i,j] then
              begin
                min := a[i,j];
                imin := i;
                jmin := j;              
              end;
      end;
   if imax < jmax then
    writeln('максимум выше')
    else
      if imax > jmax then
        writeln('максимум ниже')
        else writeln('максимум на диаганали');
   writeln('i = ', imax, ' j = ', jmax);     
   if imin < jmin then
    writeln('минимум выше')
    else
      if imin > jmin then
        writeln('минимум ниже')
        else writeln('минимум на диаганали'); 
   writeln('i = ', imin, ' j = ', jmin);
 // нужно ли сортировать
 if (imin < jmin) and (imax > jmax) then
  writeln('сортируем')
    else writeln('оставляем без изменений');   
end.

вот только по поводу сортировки... сортируем элементы столбцов или же сами столбцы (столбцы перемещаем)... если сами столбцы матрицы, то по какому элементу?... первой строки ... или же какой либо ещё...

[Anton94.by]

Спасибо большое за помощь!