Даны целое число n и массив чисел а1, а2, … аn. - вопрос №557906912 от hfyfghhvu 06.05.2021 20:03

Question

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

hfyfghhvu · Answer

// 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