1. найти произведение чётных элементов целочисленного одномерного массива, состоящего из 19 элементов. элементы массива заданы датчиком случайных чисел на интервале [-14,24] 2. массив а целочисленный. найти среднее арифметическое его элементов с нечетными индексами. размер 15 элементов, элементы массива заданы датчиком случайных чисел на интервале [-34,42]

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(19,-14,24); a.Println;
  Writeln('П=',a.Where(t->t.IsEven).Aggregate(int64(1),(x,y)->x*y))
end.

Пример
3 -4 -9 12 20 19 -8 -10 18 2 2 18 1 -6 -13 18 7 14 11
П=150493593600

№2

begin
  var n:=15;
  var a:=ArrRandom(n,-32,42); a.Println;
  Writeln('Ср.арифм: ',Range(1,n,2).Select(t->a[t-1]).Average:0:3)
end.

Пример
18 -29 40 32 23 1 14 15 20 33 -5 -19 3 21 6
Ср.арифм: 14.875