Транспанирование массива в паскале

[microlab]

Так а теперь такую задачку на массвив а) поменять местами элементы массива отнасительно главной диагонали (левый нижний с правым верхнем) б) относительно второстипенной диагонали
Заранее спасибо

[microlab]

поменять все элементы а не только угловые*

[maladoy]

1
========================
uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
i,j:integer;

begin
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
end;
writeln('========================== ===========');
for j:=1 to n do
begin
for i:=1 to n do
write(a[i,j]:3);

writeln;
end;
end.

[Sazary]

uses crt;
const N=5;
var
a : array[1..N,1..N] of integer;
i,j,tmp : integer;
begin
clrscr;
randomize;
for i:=1 to N do
 begin
 for j:=1 to N do
  begin
  a[i,j] := random(20);
  write(a[i,j]:4);
  end;
 writeln;
 end;
writeln('---------');
{--------}
for i:=1 to N do
  for j:=i+1 to N-1 do
   begin
   tmp := a[i,j];
   a[i,j] := a[j,i];
   a[j,i] := tmp;
   end;

for i:=1 to N do
  begin
  for j:=1 to N do
   write(a[i,j]:4);
  writeln;
  end;

readln;
end.

upd Эх.. не успел )

[microlab]

спасибо !!!

[Sazary]

Вторая:

uses crt;
const N=5;
var
a : array[1..N,1..N] of integer;
i,j,tmp : integer;
begin
clrscr;
randomize;
for i:=1 to N do
 begin
 for j:=1 to N do
  begin
  a[i,j] := random(20);
  write(a[i,j]:4);
  end;
 writeln;
 end;
writeln('---------');
{--------}
for i:=1 to N-1 do
  for j:=1 to N-i do
   begin
   tmp := a[i,j];
   a[i,j] := a[N-j+1,N-i+1];
   a[N-j+1,N-i+1] := tmp;
   end;

for i:=1 to N do
  begin
  for j:=1 to N do
   write(a[i,j]:4);
  writeln;
  end;

readln;
end.