Объяснение:
// 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
Объяснение:
// 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