Задача с матрицей Опции

[NightKroT]

Здравствуйте! Учился я учился(нифига не делал тоесть), и вдруг оказалось что через неделю здавать програмирование(типа курсача тока за полгода). Ну это предыстория
Дана квадратная матрица, нужно найти максимальный элемент на главной диагонали, и минимальный на побочной(или как её там). Потом поменять местами сторчи и столбцы на которых они стоят. Найти макс/мин я то вроде могу, а вот поменять как? Подскажите кто может.
ЗЫ: Смеяться не надо.
ЗЫЫ: Если решение где-то есть на сайте, то тоже просьба не пинать, я только зарегился, а сроки ой как поджимают(до пятницы)

Сообщение отредактировано: NightKroT - 28.11.2007 21:42

[NightKroT]

Program zr4;
const
n = 3;
Var
mas: array[1..n,1..n] of integer;
i,j,ix1,ix2,ix3,x,y : integer;
max1, min : integer;
Begin
max1 := 0;
min := 0;
for i := 1 to n do
for j := 1 to n do
begin
Readln(mas[i,j]);
max1 := mas[1,1];
ix1 := 1;
ix2 := 1;
ix3 := 1;
end;
for i := 1 to n do
begin
if max1 < mas[i,i] then
ix1 := i;
max1 := mas[i,i];
end;
min := mas[1,3];
for i := 1 to n do
if min > mas[i,n+1-i] then
ix3 := n+1-i;
ix2 := i;
min := mas[i,n+1-i];
Writeln('max na glavnou= ', max1,'; max  glavnoi lejit na koord ', ix1,',',ix1);
Writeln('min na pobochnoi= ', min,'; min na pobochnoi lejit na koord ', ix2,',',ix3);
for i := 1 to n do
begin
x := mas[ix1,i];
mas[ix1,i] := mas[i,ix1];
mas[i,ix1] := x;

y := mas[ix2,i];
mas[ix2,i] := mas[i,ix2];
mas[i,ix2] := y;
end;
for i := 1 to n do
for j := 1 to n do
Writeln(mas[i,j]);
end.

С этой частью работает правильно.

x := mas[ix1,i];
mas[ix1,i] := mas[i,ix1];
mas[i,ix1] := x;

А с этой выводит начальную матрицу.

y := mas[ix2,i];
mas[ix2,i] := mas[i,ix2];
mas[i,ix2] := y;

В чём ошибка понимаю, но исправить никак не выходит...

Сообщение отредактировано: NightKroT - 29.11.2007 17:25