Написать программу. Дан массив целых чисел состоящий из 10 ячеек. Найти произведение чисел больше 15 и вывести на экран.

Вопрос школьника по предмету Информатика

Написать программу. Дан массив целых чисел состоящий из 10 ячеек. Найти произведение чисел больше 15 и вывести на экран.

Ответ учителя по предмету Информатика

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