Олимпиодор
4 год назад
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести произведение элементов массива, которые имеют чётное значение и не оканчиваются на 0. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не оканчиваются на 0.
ОТВЕТЫ
Konstantin
Oct 24, 2020
//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.
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.
304
Смежные вопросы:
