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

Ответы 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= 103 15 -23 18 6 4 11 18 91 43 -23 6 11 91-414414
    • Автор:

      kobejnkk
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years