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

чина22 чина22    3   01.10.2019 23:10    0

Ответы
коу007 коу007  09.10.2020 10:34
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика