элементы относительно главной диагонали должны быть симметричны

[Ksusha]

мне нужно заполнить двумерный массив случайными числами.по главной диагонали должны быть 0,остальные элементы относительно главной диагонали должны быть симметричны.
ну что-то похожее на:
0 1 2
1 0 3
2 3 0

[Serge_Bliznykov]

сложнейшая задача...

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

begin
  Randomize;
  for i:= 1 to N do
    for j:= i to N do
      if (i=j) 
        then a[i,j] := 0 {главная диагональ}
        else begin
           a[i,j] := random(100)+1;
           a[j,i] := a[i,j];
        end;

 ... вывод матрицы на печать...

end.