Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.01.2018 10:09
- Информатика
- remove_red_eye 18692
- thumb_up 38
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 10 чисел:',10); a.Println;
var s:=a.Where((v,i)->i.IsEven).Sum;
var k:=a.Where(v->v.IsEven).Count;
var p:=a.Where(v->v>0).Aggregate(BigInteger(1),(p,q)->p*q);
Writeln('Сумма элементов на нечетных местах: ',s);
Writeln('Количество элементов, кратных 2: ',k);
Writeln('Произведение положительных элементов: ',p)
end.
Пример
Введите 10 чисел: -122 63242 123243 673452 0 -223424353 2342653 987342 -1242311 -755212
-122 63242 123243 673452 0 -223424353 2342653 987342 -1242311 -755212
Сумма элементов на нечетных местах: 1223463
Количество элементов, кратных 2: 6
Произведение положительных элементов: 12140877591331771530643145712
- 15.01.2018 11:59
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.