Сформировать массив из положительных элементов матрицы - Pascal
Формулировка задачи:
Из произвольно заданной матрицы размера 5x5 cформировать построчный одномерный массив из положительных элементов исходной матрицы.
Решение задачи: «Сформировать массив из положительных элементов матрицы»
textual
Листинг программы
for i:=1 to n do for j:=1 to n do if a[i,j]>0 then begin Inc(k); b[k]:=a[i,j]; end;
Объяснение кода листинга программы
В данном коде выполняется два вложенных цикла, которые проходят по всем элементам матрицы.
- Первый цикл
for i:=1 to n do
проходит по строкам матрицы (по i). - Второй цикл
for j:=1 to n do
проходит по столбцам матрицы (по j). Внутри циклов проверяется условиеif a[i,j]>0
, которое означает, что элемент матрицы a[i,j] должен быть больше нуля. Если это условие выполняется, то выполняется блок кода, который начинается сbegin
. - Увеличивается значение переменной k на единицу (Inc(k)).
- Значение элемента матрицы a[i,j] присваивается переменной b[k] (b[k]:=a[i,j]). Таким образом, в результате выполнения кода будет сформирован массив b, содержащий только положительные элементы матрицы a.