Question

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

Answer 1

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 6

65