Задача на массив

[foxzibit123]

Дан двумерный массив n на n , нужно поменять местами диагональные элементы (например 1234 на 4321)
Пожалуйста помогите с массивами не очень разбираюсь(

[Grag]

Например, вот так можно:

for i:=1 to (n div 2) do
  begin
    j:=n-(i-1);
    a[i,i]:=a[i,i]+a[j,j];
    a[j,j]:=a[i,i]-a[j,j];
    a[i,i]:=a[i,i]-a[j,j]
  end;

[VektorAB]

по главной или по побочной?

[foxzibit123]

И по главной и по побочной.

[VektorAB]

Вот по главной. По побочной сами додумайте.

uses crt;
var
n,i,j:byte;
a:array[1..10,1..10] of integer;
begin
clrscr;
Write('Введите размерность матрицы(max=10): ');
Read(n);
Write('Массив до преобразования: ');
for i:=1 to n do
    begin
    Writeln;
            for j:=1 to n do
                begin
                     a[i,j]:=random(100)-50;
                     Write(a[i,j]:5)
                end
    end;
for i:=1 to n div 2 do
    begin
         a[i,i]:=a[i,i]+a[n-i+1,n-i+1];
         a[n-i+1,n-i+1]:=a[i,i]-a[n-i+1,n-i+1];
         a[i,i]:=a[i,i]-a[n-i+1,n-i+1]
    end;
Writeln;
Write('Массив до преобразования: ');
for i:=1 to n do
    begin
    Writeln;
            for j:=1 to n do
                     Write(a[i,j]:5)
    end;
readkey
end.