Question

Срочно
Известно, что в массиве а1, а2, ..., а16 количество отрицательных чисел равно количеству положительных. Составить новый массив так, чтобы чередовались положительные и отрицательные числа.
Паскаль

Answer 1

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

begin

 var a := (SeqRandom(8, -1, -99) + SeqRandom(8, 1, 99)).ToArray;

 a.Shuffle;

 a.Println;

 a.Where(p -> p > 0).Interleave(a.Where(p -> p < 0)).Print

end.