PascalABC.net: Ввести массив из N целых чисел. Удалить из него элементы с четными...

Question

PascalABC.net: Ввести массив из N целых чисел. Удалить из него элементы с четными номерами . Найти произведение оставшихся элементов. Полученный новый массив и произведение вывести на экран.

Comments

Здорово! Сначала вводишь, как дурачок, кучу чисел, а потом тут же каждое второе удаляешь. Проще вводить через одно))) Какие же болваны вам придумывают такие бесполезные задания?

---

увы, нужно делать)

---

да что тут делать, ерунда, пара строк

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrInteger(ReadInteger('n='));

 a := a[::2];

 a.Println;

 a.Aggregate(BigInteger(1), (p, q)-> p * q).Print

end.

Пример

n= 10

3 15 -23 18 6 4 11 18 91 4

3 -23 6 11 91

-414414