Question

Программы на паскале.
1.Из одномерного массива, состоящего из n целых элементов сформировать новый массив, состоящий только из положительных четных элементов больших 13 и меньших 23.
2. Сформировать новый массив, состоящий сначала из положительных четных элементов больших 13 и меньших 23, а затем из оставшихся элементов.

Answer 1

begin

 var a := ReadArrInteger(ReadInteger);

 var b := a.Where(x -> x.isEven and x.inRange(13, 23)).Println.ToArray;

 var c := a.Where(x -> not (x.isEven and x.InRange(13, 23)))

 .Println.ToArray

end.