Question

Определите элементы одномерного вещественного массива Х.
Напишите программу, позволяющую создать новый массив по следующему описанию:
х1, х1+х2, …, х1+х2+х3+…хn
Язык Паскаль.

Answer 1

$displaystyle x_2'=x_1+x_2; , x_3'=x_1+x_2+x_3=x_2'+x_3; \ x_n'=x_{n-1}'+x_n$

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  for var i:=1 to a.Length-1 do a[i]+=a[i-1];
  a.Println;
end.

Пример
n= 17
78 -74 -62 -11 43 -63 99 50 -68 -87 8 93 -26 -57 2 -97 23
78 4 -58 -69 -26 -89 10 60 -8 -95 -87 6 -20 -77 -75 -172 -149