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

Ответы 3

  • Поменяйте тип res на real или BigInteger: сейчас Ваша программа будет, как правило, давать неверный ответ. Например: 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Ответ 780140544, а правильный 147111268420451335057440768
    • Автор:

      elliott
    • 5 лет назад
    • 0
  • //PascalABC.Net 3.2 сборка 1318Var  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.
    • Автор:

      ramirez
    • 5 лет назад
    • 0
  • // 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 10147111268420451335057440768
    • Автор:

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

Войти через Google

или

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

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

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