Дать одномерный массив a размерностью 16. определить среднее значение элементов массива . преобразовать массив а так, чтобы вначале находились значения меньше среднего, а потом больше . все первоначальные элементы массива вводятся с клавиатуры. сделать это в паскале
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