Определите элементы одномерного вещественного массива х. напишите программу, позволяющую создать новый массив по следующему описанию: х1, х1+х2, …, х1+х2+х3+…х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