Сформировать массив из 13 целых чисел из интервала от -15 до 25, подсчитать сумму...

Question

Сформировать массив из 13 целых чисел из интервала от -15 до 25, подсчитать сумму положительных из них,иподсчитать произведение массива кратных 3, отсортировать массив в порядке возрастания

Answer 1

// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
  var a:=ArrRandom(13,-15,25);
  a.Println;
  Writeln('Сумма положительных ',a.Where(x->x>0).Sum);
  Writeln('Произведение кратных трем ',
    a.Where(x->x mod 3=0).Aggregate(1,(p,n)->p*n));
  a.Sorted.Println
end.

Тестовое решение:
21 -5 14 -6 -6 -3 -11 -14 17 -7 -11 -5 21
Сумма положительных 73
Произведение кратных трем -47628
-14 -11 -11 -7 -6 -6 -5 -5 -3 14 17 21 21