Puti
5 год назад
Написать программу. Дан массив целых чисел состоящий из 10 ячеек. Найти произведение чисел больше 15 и вывести на экран.
ОТВЕТЫ
Aki Kauko
Oct 24, 2020
PascalABC.NET:
begin
var a:=ArrRandom(10,1,30).Println;
Writeln('P=',a.Where(x->x>15).Aggregate(1.0,(p,x)->p*x))
end.
Пример:
3 10 23 22 4 7 30 24 21 8
P=7650720
begin
var a:=ArrRandom(10,1,30).Println;
Writeln('P=',a.Where(x->x>15).Aggregate(1.0,(p,x)->p*x))
end.
Пример:
3 10 23 22 4 7 30 24 21 8
P=7650720
569
Смежные вопросы:
