1. найти произведение чётных элементов целочисленного одномерного массива, состоящего из 19 элементов. элементы массива заданы датчиком случайных чисел на интервале [-14,24] 2. массив а целочисленный. найти среднее арифметическое его элементов с нечетными индексами. размер 15 элементов, элементы массива заданы датчиком случайных чисел на интервале [-34,42]
// Внимание! Если программа не работает, обновите версию!
№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