Дать одномерный массив 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы