Як знайти медіану чисел

Запишіть задану числову послідовність. Виконайте її сортування за зростанням. У наборі зліва направо числа повинні розташовуватися від меншого значення до більшого.

Якщо ряд містить непарну кількість чисел, за його медіану слід прийняти значення, що стоїть рівно посередині набору. Наприклад, є числова послідовність виду: 400 250 640 700 900 100 300 170 550. У цьому наборі числа стоять не по порядку. Після його упорядкування за зростанням вийде наступний ряд: 100 170 250 300 400 550 640 700 900. Як видно, послідовність складається з 9 значень. Медіаною числового набору в даному випадку буде число 400. Саме від його позиції по одну сторону все числа не більші медіани, а по інший - не менше.

При розгляді значень парної послідовності центральними будуть вже не один, а два числа: m і k. Знайдіть ці числа також після упорядкування набору за зростанням. Медіана цьому випадку буде середнім арифметичним показником даних значень. Обчисліть її за формулою (m + k) / 2. Наприклад, в відсортованому ряду 200 400 600 4000 30000 50000 числа 600 і 4000 займають центральні позиції. Отже, медианой числової послідовності буде таке значення: (600 + 4000) / 2 = 2300.

Якщо набір значень містить велику кількість даних, вручну досить складно його сортувати і визначати центр ряду. За допомогою невеликої програми легко знайти медіану послідовності чисел будь-якої розмірності. Приклад коду на мові Pascal:
var M_ss: array [1..200] of integer;
med: real-
k, i, j: integer;
begin
(* Сортування чисел по зростанню *)
for j: = 1 to 200-1 do
for i: = 1 to 200-j do


begin
if M_ss [i]> M_ss [i + 1] then
k: = M [i] -
M_ss [i]: = M_ss [i + 1] -
M_ss [i + 1] = k;
end;
(* Пошук медіани *)
if (length (M_ss) mod 2) = 0 then
med: = (M_ss [trunc (length (M_ss))] + M_ss [trunc (length (M_ss)) + 1]) / 2
else
med: = M_ss [trunc (length (M_ss))];
end.
У змінній med міститься значення медіани заданого числового масиву M_ss.