profile
Опубликовано 5 лет назад по предмету Информатика от rubldaromrubldarom

Найти произведение элементов одномерного массива, находящихся в диапазоне от 4 до 10. Массив сгенерировать с помощью генератора случайных чисел в диапазоне от 2 до 42. Количество элементов в массиве 35.

  1. Ответ
    Ответ дан petyaGavrikov
    // PascalABC.NET 3.3
    begin
      var a:=ArrRandom(35,2,42); a.Println;
      Writeln('П=',a.Where(x->(x>=4)and(x<=10)).Aggregate(1,(p,x)->p*x));
    end.

    Пример:
    34 16 9 17 4 11 34 26 30 17 28 18 6 31 38 20 30 35 29 40 21 38 30 10 5 9 15 12 28 5 23 6 30 30 37
    П=2916000