Сформировать одномерный массив из четных значений элементов матрицы - Pascal

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

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

1. Дано матрицу A (N, M). Сформировать одномерный массив из парных значений элементов матрицы. Заранее спасибо!

Решение задачи: «Сформировать одномерный массив из четных значений элементов матрицы»

textual
Листинг программы
  for i:=1 to m do for j:=1 to n do
    if not Odd(a[i,j]) then begin
      Inc(k); b[k]:=a[i,j];
    end;
  Write('B ='); for j:=1 to k do Write(' ',b[j]); WriteLn;

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

  1. Создается двойной цикл: i изменяется от 1 до m, и j изменяется от 1 до n.
  2. Проверяется, является ли значение элемента матрицы a с индексами i и j четным: not Odd(a[i,j]).
  3. Если значение четное, то увеличивается счетчик k, и значение элемента a[i,j] добавляется к одномерному массиву b под индексом k: b[k]:=a[i,j].
  4. Далее выводится массив b с помощью цикла Write и WriteLn.

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

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