Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100.
marynina2011 в категроии Информатика, вопрос открыт 03.04.2017 в 21:05
Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести произведение элементов массива, которые имеют чётное значение и не оканчиваются на 0. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не оканчиваются на 0.
2 ответа
Malika , ответ добавлен 03.04.2017 в 21:24
//PascalABC.Net 3.2 сборка 1318
Var
res:integer = 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
[email protected] , ответ добавлен 03.04.2017 в 21:14
P:=1
for i:=1 to N do begin
if (a[i] mod 2 = 0) and (a[i] mod 10<>0) then
p:=p*a[i];
end;
writeln(p)
0
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.