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

Предыдущий
вопрос Следующий
вопрос

program PositiveEvenElements;
const
n = 10;
var
arr1: array[1..n] of integer;
arr2: array[1..n] of integer;
i, j: integer;
begin
// Заполнение исходного массива случайными числами
for i := 1 to n do
arr1[i] := Random(31) - 15;

// Формирование нового массива только из положительных четных элементов больших 13 и меньших 23
j := 0;
for i := 1 to n do
begin
if (arr1[i] > 13) and (arr1[i] < 23) and (arr1[i] mod 2 = 0) then
begin
j := j + 1;
arr2[j] := arr1[i];
end;
end;

// Вывод нового массива
for i := 1 to j do
Write(arr2[i], ' ');
end.

program CreateNewArray;
const
n = 10;
var
arr1: array[1..n] of integer;
arr2: array[1..n] of integer;
i, j, k: integer;
begin
// Заполнение исходного массива случайными числами
for i := 1 to n do
arr1[i] := Random(31) - 15;

// Формирование нового массива сначала из положительных четных элементов больших 13 и меньших 23
j := 0;
for i := 1 to n do
begin
if (arr1[i] > 13) and (arr1[i] < 23) and (arr1[i] mod 2 = 0) then
begin
j := j + 1;
arr2[j] := arr1[i];
end;
end;

// Добавление оставшихся элементов в новый массив
for i := 1 to n do
begin
if (arr1[i] <= 13) or (arr1[i] >= 23) or (arr1[i] mod 2 <> 0) then
begin
j := j + 1;
arr2[j] := arr1[i];
end;
end;

// Вывод нового массива
for i := 1 to n do
Write(arr2[i], ' ');
end.