1 ) Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифлетическое четных элементов массива. Выведите на экран исходный массив и полученное среднее арифметическое. 2) Задайте массив из 10 элементов с помощью датчика случа

// PascalABC.NET 3.3

begin

  var a:=ArrRandom(10,-50,50);

  writeln('1)');  a.Println;

  writeln('Среднее арифметическое четных элементов = ',

           a.Where(x->x mod 2=0).Average);

  var c:=ArrRandom(10,-50,50);

  writeln('2)');  c.Println;

  writeln('max+min = ',c.Max+c.Min);

  writeln('3)');

  var n:=ReadInteger('n =');

  var b:=SeqGen(n,random(5),x->x+random(1,5)).ToArray;

  b.Println;

  var s:=ReadInteger('s =');

  var k:=b.Where(x->x<s).Count;

  b:=b[:k]+Arr(s)+b[k:];

  b.Println;

end.

Пример:

1)

-24 12 -31 -5 -45 36 27 43 46 -6

Среднее арифметическое четных элементов = 12.8

2)

24 -13 -20 -47 16 27 -33 11 22 -33

max+min = -20

3)

n = 10

0 4 5 7 11 15 19 20 24 25

s = 10

0 4 5 7 10 11 15 19 20 24 25