Склавиатуры вводится n целых чисел a1+a3,a2+a4….,an-2+an. найти сумму этих чисел.решить для n=10.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var (n, s) := (10, 0);

 var a := ReadArrInteger(n);

 for var i := 0 to n - 3 do

   s += a[i] + a[i + 2];

 Print(s)

end.

Пример3 7 2 -4 9 0 12 5 1 665