Массив с вводится с клавиатуры. найти сумму и произведение его элементов с нечетными номерами, заданном датчиком случайных чисел на интервале [1, 27].

Vladttttt Vladttttt    2   08.09.2019 14:20    0

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