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

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016begin  var a:=ReadArrInteger(16);  var b:=a.Average; Writeln('Среднее ',b);  a:=a.Where(x->x<=b).Concat(a.Where(x->x>b)).ToArray;  a.Printlnend.Тестовое решение:33 19 36 82 63 53 16 96 74 90 25 49 85 99 68 67Среднее 59.687533 19 36 53 16 25 49 82 63 96 74 90 85 99 68 67