В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 100. опишите на языке программирования паскаль алгоритм, позволяющий найти и вывести произведение элементов массива, которые имеют чётное значение и не оканчиваются на 0. гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не оканчиваются на 0.

Показать ответ
Ответ:
женя1373
женя1373
05.10.2020 23:21
//PascalABC.Net 3.2 сборка 1318

Var
  res:BigInteger = 1;
begin
  var ar:=ReadArrInteger(30);
  var armod:=ar.Where(x -> x mod 10 <> 0).Where(x -> x mod 2=0);
  foreach var x in armod do
    res*=x;
  writeln(res);
end.
0,0(0 оценок)
Ответ:
Платонф
Платонф
05.10.2020 23:21
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(30,0,100); a.Println;
  var s:=a.Where(x->x.IsEven and (x mod 10<>0));
  if s.Count>0 then Writeln(s.Aggregate(BigInteger(1),(x,y)->x*y))
  else Writeln('Нет элементов, удовлетворяющих условию')
end.

Пример
68 6 20 51 68 38 45 92 74 95 85 12 46 75 88 31 80 35 38 42 98 50 34 76 35 65 18 73 58 10
147111268420451335057440768
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота