Необходимо задать массив размерностью 25 элементов, заполнить массив случайными целыми числами в интервале [-19, 169] и вывести элементы на экран. поменять местами отрицательные элементы массива и положительные элементы массива. вывести новый массив на экран.
===== PascalABC.NET =====
begin
var a := ArrRandom(25, -19, 169);
a.Println;
var s := a.Select((v,i) -> (v, i));
var ineg := s.Where(p -> p[0] < 0).Select(p -> p[1]).ToArray;
var ipos := s.Where(p -> p[0] > 0).Select(p -> p[1]).ToArray;
for var i := 0 to Min(ineg.Length, ipos.Length) - 1 do
Swap(a[ineg[i]], a[ipos[i]]);
a.Println
end.