Сформировать одномерный массив из четных значений элементов матрицы - 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;
Объяснение кода листинга программы
- Создается двойной цикл:
i
изменяется от 1 доm
, иj
изменяется от 1 доn
. - Проверяется, является ли значение элемента матрицы
a
с индексамиi
иj
четным:not Odd(a[i,j])
. - Если значение четное, то увеличивается счетчик
k
, и значение элементаa[i,j]
добавляется к одномерному массивуb
под индексомk
:b[k]:=a[i,j]
. - Далее выводится массив
b
с помощью циклаWrite
иWriteLn
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д