Question

Дан одномерный массив из p элементов. Сформировать 2 новых массива. Элементами первых должен быть чётные значения элементов, стоящими до первого отрицательного массива значения элемента. Элементы второго массива должны быть нечётные значения элементов стоящие после первого отрицательного значения исходного массива. (на Паскале).

Answer 1

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

begin

 var p := ReadInteger('p =');

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

 a.Println;

 var q := a.FindIndex(r -> r < 0);

 if q > -1 then

 begin

   var b := a?[:q].Where(r -> r.IsEven).ToArray;

   Print('Первый массив:');

   b.Println;

   var c := a?[q:].Where(r -> r.IsOdd).ToArray;

   Print('Второй массив:');

   c.Println;

 end

 else

   Println('В массиве нет отрицательных элементов')

end.