1. Найти произведение чётных элементов целочисленного одномерного массива, состоящего из...

Question

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

Answer 1

// 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