Question

Необходимо задать массив размерностью 25 элементов, заполнить массив случайными целыми числами в интервале [-19, 169] и вывести элементы на экран. Поменять местами отрицательные элементы массива и положительные элементы массива. Вывести новый массив на экран.

Answer 1

===== 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.