Даны целое число n и массив чисел а1, а2, … аn. получить из массива а массив b, для которого b1=a1, bn= аn, а начиная со второго элемента bi=ai+аi+1.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,10,40); a.Println;
  var b:=a.Select(e->2*e+1).ToArray;
  b[0]:=a[0]; b[n-1]:=a[n-1];
  b.Println
end.

Тестовое решение
n= 10
16 11 28 30 20 39 12 27 12 31
16 23 57 61 41 79 25 55 25 31