Помогите плз! Решить несложную задачку!(Pascal)

[And1]

Вот и сама задачка: дана действительная квадратная матрица порядка N(n-нечетное).Все элементы матрицы различны.Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей.

[Хыиуду]

Не в ту ветку. Это в "Решите мне задачку".
Сначала записать координаты [0,0] как координаты максимума (maxi, maxj). Далее цикл по i от 0 до N-1 - если A[i,i]>A[maxi,maxj], то maxi:=i; maxj:=i. Потом еще такой же цикл, A[i,N-1-i]>A[maxi,maxj], то maxi:=i; maxj:=N-1-i.
Потом поменять местами A[maxi,maxj] и A[N div 2, N div 2]

[Oleg_Rus]

Хыиуду, можно же максимум присвоить [1, 1], начинать цикл от 2 до n.
так, если я не ошибаюсь, быстрее, оперативнее...

[Хыиуду]

Согласен. Это как раз можно потом сделать, когда препод спросит: "А как можно ускорить процесс?"

[And1]

блин я ваще ничего не понимаю! напишите пожалуйста в блокноте, просто очень нужно! плз)

[Хыиуду]

Чесслово, надоело, когда люди сами не хотят мыслить. Надо попросить АiK сделать раздел "Решение типовых задачек". От заголовков типа "Помогите плз срочно задачу решить!" уже в глазах рябит. Добро бы еще спрашивали что-то конкретное, а то нет же - решите, и все тут!

Чего конкретно непонятно?

[yuka]

А я вот лень поощряю.
Лезь на мой сайт acmsolver.narod.ru. Там раздел "Задачи и решения" -> "задачи от посетителей сайта". 8-я задача - твоя.
Если знаешь ещё тех кто не хотят мыслить и могут заплатить за то, чтобы за них подумали - милости их проси на acmsolver.
Удачи!

[Oleg_Rus]

Основной код:

Procedure FindMax(a: array [1..n, 1..n] Of Integer; n: Integer);
Begin
Max:=a[1,1];
For i:=2 To n Do
For j:=2 To n Do
If a[i,j]>Max Then Max:=a[i,j];
Write(Max);
End;

[Oleg_Rus]

Хотя Кол-во элементов можно забить в a[0, 0] Чтобы не захламлять прогу...