Квадратная матрица

[Rick Sanchez]

Помогите плиз с заданием. Саму матрицу A составляю а как матрицу B получить, тут уже в ступоре. Дана квадратная матрица A порядка n. Получить матрицу B, элементы матрицы B
вычисляются по формуле:

[digitalis]

Ерунда какая-то в задании. Элементы матрицы А тоже должны иметь двойной индекс. Что есть ai, aj ?

[Rick Sanchez]

Сообщение от digitalis

Ерунда какая-то в задании. Элементы матрицы А тоже должны иметь двойной индекс. Что есть ai, aj ?

Хз если честно. Я сам не понял как по этой формуле что то делать

[Вадим Мошев]

Вероятно, в задании опечатка. Вам надо спросить и преподавателя, как звучит правильно задание.

[Serge_Bliznykov]

Скорее всего задание звучит так:

Дан одномерный массив A размерности n.
Получить квадратную матрицу B размера n x n, элементы матрицы B вычисляются по формуле:

[Rick Sanchez]

Сообщение от Serge_Bliznykov

Скорее всего задание звучит так:

Дан одномерный массив A размерности n.
Получить квадратную матрицу B размера n x n, элементы матрицы B вычисляются по формуле:

У препода спрашивал по поводу этого задания, он сказал что там все просто решается. При этом задание он прочет и как я понял не нашел ошибки

[Serge_Bliznykov]

Сообщение от Rick Sanchez

При этом задание он прочет и как я понял не нашел ошибки

ну так у него и спрашивайте, что такой ai и aj в формуле, что же Вы от нас хотите...
по мне, так задание явно кривое.
свой вариант я предоставил. Не угадал, значит, не угадал.
Делайте так, как преподаватель сказал.

[digitalis]

Тот жуткий случай, когда чайник-препод обучает чайников-учеников/студней. В итоге на выходе имеем то, что имеем.

[newerow1989]

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