После первого четного элемента массива вставить 0 - Pascal ABC

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

После первого четного элемента вставить 0. Пример: из массива A[5]: 1 6 8 3 4 должен получиться массив A[6]: 1 6 0 8 3 4.

Решение задачи: «После первого четного элемента массива вставить 0»

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

  i:=0; a[n]:=0; while Odd(a[i]) do Inc(i);
  j:=n; while j>i do begin a[j]:=a[j-1]; Dec(j); end;
  if i<n then a[i+1]:=0;
  Write('Modified array:'); for i:=0 to n do Write(' ',a[i]);

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

Переменная i инициализируется значением 0.
Для каждого элемента массива a[n] выполняется следующее:
- Если элемент четный (Odd(a[i])), то его значение увеличивается на 1 (Inc(i)).
- Переменная j инициализируется значением n.
- Пока значение переменной j больше значения переменной i, выполняется следующий блок кода:
  - Значение a[j] присваивается значению a[j-1].
  - Значение переменной j уменьшается на 1 (Dec(j)).
- Если значение переменной i меньше значения n, то значение a[i+1] присваивается 0.
Выводится измененный массив:
- Для каждого элемента массива a[i] выполняется следующее:
  - Значение a[i] выводится на экран.
- Конец цикла.