Найти все нечетные числа в массиве - Pascal

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

дан массив В состоящий из 5-ти элементов, нужно найти все нечетные числа в этом массиве скопировать эти нечетные цифры в другой массив C, вывести массивы В и С

Решение задачи: «Найти все нечетные числа в массиве»

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

uses crt;
var
   i,j:integer;
   b,c:array [1..5] of integer;
begin
  clrscr;
  j:=0;
  for i:=1 to 5 do
      b[i]:=random(100);
  for i:=1 to 5 do
      if odd(b[i]) then
         begin
              inc(j);
              c[j]:=b[i];
         end;
   writeln('Исходный Массив: ');
   writeln;
  for i:=1 to 5 do
      write(b[i],' ');
  writeln; writeln;
  writeln('Массив нечетных  элементов:');
  writeln;
  for i:=1 to j do
      write(c[i],' ');
 
        readkey;
end.

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

В данном коде используется язык программирования Pascal. Он содержит следующие элементы:

Подключение модуля crt, который обеспечивает функции для работы с памятью и вводом-выводом.
Объявление переменных i и j типа integer, которые будут использоваться для циклов.
Объявление переменной b типа array[1..5] of integer, которая будет представлять собой массив из 5 чисел.
Заполнение массива b случайными числами от 0 до 99 с помощью цикла for.
Запуск второго цикла for, который будет проходить по всем элементам массива b.
Внутри второго цикла проверяется, является ли текущий элемент нечетным с помощью функции odd(). Если элемент нечетный, то увеличивается значение переменной j и в массив c записывается текущий элемент.
Вывод исходного массива b с помощью функции write().
Вывод массива нечетных элементов c с помощью функции write().
Ожидание ввода с помощью функции readkey().