Question

Помогите, пожалуйста:
В массиве из 8 элементов, заполненном числами в диапазоне от -12 до 12, найти среднее арифметическое, произведение отриц. чисел, кол-во четных и максимальный(?) элемент
1. создание массива
2. заполнение массива
3. посчитать
4. вывод
Спасибо)

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018

// Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandom(8,-12,12); mas.Println;

 Writeln('среднее арифметическое=',mas.Average);

 Writeln('произведение отриц. чисел=',mas.Where(t->t<0).Aggregate(biginteger(1),(x,y)->x*y));

 Writeln('кол-во четных=',mas.Where(t->t mod 2=0).Count);

 Writeln('максимальный элемент=',mas.Max);

end.