Помогите решить пожалуйста!!!!
В одномерном массиве X[1..6] вывести на экран произведение элементов, модуль которых <3
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrRandom(6,-4,4); x.Println;
Writeln(x.Where(x->Abs(x)<3).Aggregate(1,(x,y)->x*y))
end.
Пример
-2 -1 2 1 -4 2
8
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrRandom(6,-4,4); x.Println;
Writeln(x.Where(x->Abs(x)<3).Aggregate(1,(x,y)->x*y))
end.
Пример
-2 -1 2 1 -4 2
8
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад