Дать одномерный массив A размерностью 16. определить среднее значение элементов массива . Преобразовать массив А так, чтобы вначале находились значения меньше среднего, а потом больше . все первоначальные элементы массива вводя...
Дать одномерный массив A размерностью 16. определить среднее значение элементов массива . Преобразовать массив А так, чтобы вначале находились значения меньше среднего, а потом больше . все первоначальные элементы массива вводятся с клавиатуры. СДЕЛАТЬ ЭТО В ПАСКАЛЕ
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы