В массиве из 15 целых чисел найти медиану (средний элемент) и поменять его местами с...

Question

В массиве из 15 целых чисел найти медиану (средний элемент) и поменять его
местами с первым элементом. PASCAL или C++

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