Предмет: Информатика,
автор: AMDeluxe
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести произведение элементов массива, которые имеют чётное значение и не оканчиваются на 0. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не оканчиваются на 0.
Ответы
Автор ответа:
0
//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.
Автор ответа:
0
Поменяйте тип 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
Ответ 780140544, а правильный 147111268420451335057440768
Автор ответа:
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 10
147111268420451335057440768
// Внимание! Если программа не работает, обновите версию!
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
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: kamilahakimzhanova10
Предмет: Английский язык,
автор: Miа16
Предмет: История,
автор: legendda34
Предмет: Математика,
автор: kholodnyyserge