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

[NightKroT]

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

Сообщение отредактировано: NightKroT - 29.11.2007 1: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.

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

[Lapp]

однако как узнать координаты максимального и минимального елемнтов?

Для поиска max/min элементов используется довольно стандартная конструкция. Заводишь переменную для искомого значения, присваиваешь ей значение первого элемента, а потом проходишь по всему нужному множеству и сравниваешь. Если что-то встретилось большее/меньшее, то кладешь в нее и запоминаешь индекс.
Вот, например, поиск максимума на главной диагонали в массиве a:

ax:=a[1,1];
ix:=1;
for i:=2 to n do if a[i,i]>ax then begin
  ax:=a[i,i];
  ix:=i
end;

После этого само значение максимума лежит в ax, а его индекс в ix.