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

Узнай цену своей работы

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

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

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

textual
Листинг программы
  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]);

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

  1. Переменная i инициализируется значением 0.
  2. Для каждого элемента массива 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.
  3. Выводится измененный массив:
    • Для каждого элемента массива a[i] выполняется следующее:
      • Значение a[i] выводится на экран.
    • Конец цикла.

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы