// PascalABC.NET 3.3, сборка 1549 от 17.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),1,27); a.Println; var s:=a.Where((x,i)->i.IsEven); Writeln('Cумма элементов с нечетными номерами: ',s.Sum); Writeln('Произведение элементов с нечетными номерами: ', s.Aggregate(BigInteger(1),(x,y)->x*y)); end.
Пример n= 25 13 6 18 13 14 23 7 3 24 6 6 9 14 8 4 2 14 2 14 22 9 24 19 20 27 Cумма элементов с нечетными номерами: 183 Произведение элементов с нечетными номерами: 167343326631936
b2 алгоритм не благодарны