Создать процедуру, которая реализует решение предложенной задачи на паскале Задан массив с количеством элементов N. Сформировать два массива: в первый включить элементы исходного массива с четными номерами, а во второй — с нечетными.

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

program SplitArray;
const
N = 10;
var
originalArray: array[1..N] of Integer;
evenArray, oddArray: array[1..N div 2] of Integer;
i, j, k: Integer;
begin
// Заполнение исходного массива
for i := 1 to N do
begin
originalArray[i] := Random(100); // Генерация случайных чисел от 0 до 99
Write(originalArray[i], ' ');
end;
Writeln;
// Формирование двух новых массивов
j := 1;
k := 1;
for i := 1 to N do
begin
if i mod 2 = 0 then
begin
evenArray[j] := originalArray[i];
j := j + 1;
end
else
begin
oddArray[k] := originalArray[i];
k := k + 1;
end;
end;
// Вывод новых массивов
for i := 1 to N div 2 do
Write(evenArray[i], ' ');
Writeln;
for i := 1 to N div 2 do
Write(oddArray[i], ' ');
Writeln;
end.

Эта программа создает массив originalArray из N случайных целых чисел и затем формирует два новых массива evenArray и oddArray, в которые включает соответственно элементы исходного массива с четными и нечетными номерами. В конце программа выводит эти два новых массива.