Question

дать одномерный массив A размерностью 16. определить среднее значение элементов массива . Преобразовать массив А так, чтобы вначале находились значения меньше среднего, а потом больше . все первоначальные элементы массива вводятся с клавиатуры. СДЕЛАТЬ ЭТО В ПАСКАЛЕ

Answer 1

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var a:=ReadArrInteger(16);
  var b:=a.Average; Writeln('Среднее ',b);
  a:=a.Where(x->x<=b).Concat(a.Where(x->x>b)).ToArray;
  a.Println
end.

Тестовое решение:
33 19 36 82 63 53 16 96 74 90 25 49 85 99 68 67
Среднее 59.6875
33 19 36 53 16 25 49 82 63 96 74 90 85 99 68 67