В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными - Turbo Pascal (42358)

Формулировка задачи:

Задан массив с количеством элементов N. Сформировать два массива: в первый включить элементы исходного массива с четными номерами, а во второй – с нечетными. Заранее спасибо...)

Решение задачи: «В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными»

Листинг программы

program pr;
uses
     crt;
var
     a: array[1..8] of integer;
     b: array[1..4] of integer;
     c: array[1..4] of integer;
     i: integer;
begin
     randomize;
     clrscr;
     writeln('array a:');
     for i := 1 to 8 do
     begin
        a[i] := random(50);
        write(a[i], ' ');
        if (i mod 2 = 0) then
           b[i div 2] := a[i]
        else
           c[i div 2] := a[i-2];
 
     end;
     writeln;
     writeln('array b:');
     for i := 1 to 4 do
         write(b[i], ' ');
     writeln;
     writeln('array c:');
     for i := 1 to 4 do
        write(c[i], ' ');
     writeln;
     readkey;
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal создается программа для разделения исходного массива на два массива: один с четными элементами, другой - с нечетными. Переменная a представляет собой исходный массив, содержащий 8 элементов. Каждый элемент этого массива генерируется случайным числом от 0 до 50 с помощью функции random. Затем происходит инициализация двух других массивов: b и c. Массив b содержит четные элементы из массива a, а массив c содержит нечетные элементы из массива a. Для определения, является ли элемент четным или нечетным, используется оператор mod (остаток от деления). Если остаток от деления индекса элемента на 2 равен 0, то элемент четный, и он копируется в соответствующий элемент массива b. Если остаток от деления равен 1, то элемент нечетный, и он копируется в соответствующий элемент массива c. После завершения цикла, все элементы массива a были проверены, и каждый четный элемент был скопирован в массив b, а каждый нечетный элемент был скопирован в массив c. В конце программы выводится содержимое обоих массивов с помощью функции writeln. Пользователю предлагается ввести любую клавишу для завершения работы программы.