Двумерные массивы, вложенные циклы

[grendast]

Помогите с программой

[ChiliPalmer777]

Так ты не можешь транспонировать матрицу или не можешь вычислить значение элемента по заданной формуле?

[newerow1989]

const n=10;
var a,b:array[1..n,1..n] of real;
    i,j:integer;
begin
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=(8-i)/(-Sqrt(3)+j);
         Write(a[i,j]:5:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         b[i,j]:=a[j,i];
         Write(b[i,j]:5:3,'  ');
      end;
      Writeln;
   end;
   Readln;
end.