Question

Дан массив а (30). В порядке возрастания вторую половину

Answer 1

===== PascalABC.NET =====

begin

 var n := 30;

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a := a[:n div 2] + a[n div 2:].Sorted.ToArray;

 a.Print

end.