Программы на паскале.

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

2. Сформировать новый массив, состоящий сначала из положительных четных элементов больших 13 и меньших 23, а затем из оставшихся элементов.

Question

Информатика

Артемиза

22 сентября, 00:04

Программы на паскале.

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

2. Сформировать новый массив, состоящий сначала из положительных четных элементов больших 13 и меньших 23, а затем из оставшихся элементов.

+5

Ответы (1)

Знаете ответ на вопрос?

Ярец · 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.