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

[NightKroT]

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

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

[NightKroT]

Ну это вроде работает...

Program zr4;
const
n = 3;
Var
mas: array[1..n,1..n] of integer;
i,j : integer;
max1, max2 : integer;
Begin
max1 := 0;
max2 := 0;
for i := 1 to n do
for j := 1 to n do
begin
Readln(mas[i,j]);
max1 := mas[1,1];
end;
for i := 1 to n do
begin
if max1 < mas[i,i] then
max1 := mas[i,i];
end;
max2 := mas[1,3];
for i := 1 to n do
if max2 < mas[i,n+1-i] then
max2 := mas[i,n+1-i];
Writeln('max на главной = ', max1, ' max на побочной = ', max2);
end.

как менять столбцы с строками местами тоже вроде рассказали, да и найти несложно, однако как узнать координаты максимального и минимального елемнтов?