Для вектора a размерностью n=10 и произвольного числа x вычислить число y по формуле

Question

Для вектора a размерностью n=10 и произвольного числа x вычислить число y по формуле

---

Answer 1

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

begin
  var n:=10;
  var a:=SeqRandom(n,-99,99).Select(t->0.1*t).ToArray; a.Println;
  var x:=ReadReal('x=');
  var (y,z,px):=(0.0,1.0,x*x);
  foreach var t in a do begin
    y+=z*t*px; z:=-z; px*=x
    end;
  Writeln('y=',y)  
end.

Пример
2.2 -8 6.1 -7.4 4 -8.3 -5.9 5.9 -7.9 -8.1
x= 2.15
y=14313.6473317108