Массив. Паскаль

[foxzibit123]

Помогите пожалуйста написать программу...((
С массивами не очень разбираюсь(

Дан двумерный массив n на n , нужно поменять местами диагональные элементы (например 213 на 312 )


Пожалуйста очень прошу..

[gris]

А практически ничем не отличается от задачи переписать одномерный массив задом наперёд.
Только вместо $a[i]$ будет $a[i;i]$.

[0x21h]

1. пока (счетчик < длина_массива делить_нацело_на 2) 
2. { 
3. лок_переменная = массив[счетчик][счетчик] 
4. массив[счетчик][счетчик] = массив[длина_массива-счетчик][длина_массива-счетчик] 
5. массив[длина_массива-счетчик][длина_массива-счетчик] = лок_переменная 
6. счетчик++ 
7. } 

(Оффтоп)

gris в сообщении #340228 писал(а):

Только вместо $a[i]$ будет $a[i;i]$

Только вместо $a[i;i]$ будет $a[i,i]$.

[gris]

0x21h, я по-вашему не понимаю. Уж тогда написали бы swap (...; ...). Всё меньше строк.

[ewert]

gris в сообщении #340413 писал(а):

Уж тогда написали бы swap

какой смысл писать хоть две буквы, не говоря уж о четырёх, когда задача заведомо всё равно не поставлена