Регистрация
samaska
30.08.2022 11:42
Информатика
Есть ответ 👍

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

194
413
Посмотреть ответы 2

Ответы на вопрос:

Jdjdhdh66t
Jdjdhdh66t
4,5(60 оценок)
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
Аринусик111
Аринусик111
4,8(98 оценок)

pascalabc.net

begin

  var n : = readinteger('n =');

  var a : = arrrandom(n, -99, 99);

  a.println;

  a.count(p -> p mod 5 = 0).println

end.

Популярно: Информатика