В каждой из двух матриц все отрицательные элементы заменить нулями - Turbo Pascal
Формулировка задачи:
даны 2 матрицы одинакового размера.в каждой из двух матриц все отрицательные элементы заменить нулями
Решение задачи: «В каждой из двух матриц все отрицательные элементы заменить нулями»
textual
Листинг программы
for i:=1 to x do for j:=1 to y do if a[i,j]<0 then a[i,j]:=0;
Объяснение кода листинга программы
В данном коде происходит замена всех отрицательных элементов в матрице a
на нули.
Для выполнения этой операции используется два вложенных цикла: внешний цикл проходит по строкам матрицы (от 1 до x
), а внутренний цикл проходит по столбцам матрицы (от 1 до y
).
Внутри внутреннего цикла проверяется условие: если элемент матрицы a[i,j]
меньше нуля, то он заменяется на ноль.
Таким образом, после выполнения данного кода все отрицательные элементы в матрице a
будут заменены на нули.