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

[Anton94.by]

Исправить ошибку в программе.

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

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

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

( Программу сделать так, чтобы надо было всё вводить в окне Паскаль, т.е. writeln, readln.).
program st;
uses crt;
var
  a:array[1..7,1..7] of integer;
  i, j, max, min, imax, jmax, imin, jmin, obm, k:integer;
begin
  clrscr;
  randomize;
  for i:=1 to 7 do
  begin
    for j:=1 to 7 do
    begin
      a[i,j]:=random(99);
      if (i+j)<j*2 then textcolor(red)
      else textcolor(green);
      write(a[i,j]:3);
      if i=1 then if j=1 then
      begin
        max:=a[i,j];
        imax:=1;
        jmax:=1;
        min:=a[i,j];
        imin:=1;
        jmin:=1;
      end;
      if max< a[i,j] then
        begin
          min:=a[i,j];
          imin:=i;
          jmin:=j;
        end;
    end;
    writeln;
  end;
  writeln;
  writeln('max=',max,'min=',min);
  writeln;
  if (imin+jmin)*2 then if imax+jmax>jmax*2 then ( ошибку выдаёт в это строчке, я делал её ещё так: " if (imin<jmin) and (imax>jmax) then " но в этом случае программа работает неправильно.)
  begin
    for j:=1 to 7 do
    begin
      for i:=1 to 7 do
      begin
        for k:=i to 7 do
        begin
          if a[i,j]>a[k,j] then
          begin
            obm:=a[i,j];
            a[i,j]:=a[k,j];
            a[k,j]:=obm;
          end;
        end;
      end;
    end;
  end;
  textcolor(13);
  for i:=1 to 7 do
  begin
    for j:=1 to 7 do
    begin
      write(a[i,j]:3);
    end;
    writeln;
  end;
  readkey;
end.

[Anton94.by]

Может кто знает как по-другому написать, дак напишите.

[Hacker19_90]

if (imin+jmin)*2 then

Что это? Что с чем сравниваете?
Ну а тут

  for i:=1 to 7 do
  begin
    for j:=1 to 7 do
    begin
      a[i,j]:=random(99);
      if (i+j)<j*2 then textcolor(red)
      else textcolor(green);
      write(a[i,j]:3);
      if i=1 then if j=1 then
      begin
        max:=a[i,j];
        imax:=1;
        jmax:=1;
        min:=a[i,j];
        imin:=1;
        jmin:=1;
      end;
      if max< a[i,j] then
        begin
          min:=a[i,j];
          imin:=i;
          jmin:=j;
        end;
    end;
    writeln;
  end;

обьясните мне методологию нахождения максимума и минимума?

[Anton94.by]

Вы выделили часть кода, где в разные цвета разукрашивается матрица, т.е. правый верхний треугольник будет красным, а левый треугольник будет зелёным.
P.S. треугольники из квадрата, т.е. как например в квадрате провести линию и получится 2 прямоугольных треугольника, так и здесь.

А так же здесь я описываю max и min элементы.

[Hacker19_90]

разукрашивание делается проще!
Если матрица делится главной диагональю то

if i < j then textcolor (blue);
if i > j then textcolor (red);
if i = j then textcolor (green);

всё что ниже голубое. что выше - красное, диагональ - зелёная
А вот что касается max и min , ТО мне интересно КАК ВЫ ИХ НАХОДИТЕ?

[Anton94.by]

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

[Anton94.by]

Вы просмотрите, может эта программа вообще неправильная. Если можете, то исправьте, а то она мне срочно надо.

[Anton94.by]

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

разукрашивание делается проще!
Если матрица делится главной диагональю то

if i < j then textcolor (blue);
if i > j then textcolor (red);
if i = j then textcolor (green);

всё что ниже голубое. что выше - красное, диагональ - зелёная
А вот что касается max и min , ТО мне интересно КАК ВЫ ИХ НАХОДИТЕ?

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

[Hacker19_90]

Неправильно вы это делаете!

[Sidhe]

if (imin+jmin)*2 then
это не условие, в условии указывается сравнение, а тут где сравнение ?