Pascalabc.net: ввести массив из n целых чисел. удалить из него элементы с четными номерами . найти произведение оставшихся элементов. полученный новый массив и произведение вывести на экран.

филосов00 филосов00    1   02.10.2019 22:30    0

Ответы
serjksu serjksu  09.10.2020 12:40
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= 103 15 -23 18 6 4 11 18 91 43 -23 6 11 91-414414
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика