Question

Задан массив из 10000 элементов. Найти медиану этого массива (Pascal ABC)

Answer 1

Ответ:

Объяснение:

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016

// Внимание! Если программа не работает, обновите версию!

begin

 var a:=ArrRandom(15,1,99); a.Println;

 var m:=a.Sorted.Skip(7).Min;

 var i:=a.FindIndex(x->x=m);

 Swap(a[0],a[i]);

 a.Println;

end.

Пример

7 55 76 93 73 97 3 1 89 1 64 92 40 3 69

64 55 76 93 73 97 3 1 89 1 7 92 40 3 69