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

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

Задать свой вопрос
Екатерина Самкина
Здорово! Поначалу вводишь, как дурачок, кучу чисел, а потом тут же каждое 2-ое удаляешь. Проще вводить через одно))) Какие же глупцы для вас выдумывают такие тщетные задания?
Вадик Катров
как досадно бы это не звучало, необходимо делать)
Палтко Эвелина
да что тут делать, ерунда, пара строк
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)-gt; p * q).Print

end.

Пример

n= 10

3 15 -23 18 6 4 11 18 91 4

3 -23 6 11 91

-414414

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт