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

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