Язык Паскаль . Вводится одномерный массив A. Построить квадратный массив M , где M i j =...

Question

Язык Паскаль . Вводится одномерный массив A. Построить квадратный массив M , где M i j = A i + A j .

Comments

длину А , наверное .

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var a:=ReadArrInteger(ReadInteger('n->'));
  var m:=MatrGen(a.Length,a.Length,(i,j)->a[i]+a[j]); m.Println;
end.

Пример:
n-> 4
4 8 6 2
   8  12  10   6
  12  16  14  10
  10  14  12   8
   6  10   8   4