Question

Сгенерировать массив из N=11 случайных чисел {-29;150}, вывести.
Найти среднее арифметическое положительных и отрицательных чисел, вывести. Поменять местами 2-й и 7-й элементы в массиве, вывести полученный массив

Answer 1

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

begin
  var a:=ArrRandom(11,-29,150); a.Println;
  Writeln('Ср.арифм. положительных: ',a.Where(x->x>0).Average:0:3);
  Writeln('Ср.арифм. отрицательных: ',a.Where(x->x<0).Average:0:3);
  Swap(a[1],a[6]);
  Writeln('Результирующий массив'); a.Println
end.

Пример
91 109 113 119 17 95 41 131 -15 117 -14
Ср.арифм. положительных: 92.556
Ср.арифм. отрицательных: -14.500
Результирующий массив
91 41 113 119 17 95 109 131 -15 117 -14