Найти произведение отрицательных элементов каждого столбца матрицы - Pascal ABC
Формулировка задачи:
Дан двумерный массив А, состоящий из N строк и M столбцов. Найти указанное значение: произведение отрицательных элементов каждого столбца;
Нужен код программы.
Решение задачи: «Найти произведение отрицательных элементов каждого столбца матрицы»
textual
Листинг программы
p:=1; for i:=1 to n do for j:=1 to m do begin if a[i,j]<0 then p:=p*a[i,j]; writeln(p); end;
Объяснение кода листинга программы
- Переменная
p
инициализируется значением 1. - Запускается цикл
for
, который выполняетсяn
раз, гдеn
- это количество строк в матрицеa
. - Внутри цикла
for
также запускается другой циклfor
, который выполняетсяm
раз, гдеm
- это количество столбцов в матрицеa
. - В каждой итерации внутреннего цикла проверяется условие
if a[i,j]<0 then p:=p*a[i,j]
. Если элементa[i,j]
отрицательный, то его произведение с текущим значениемp
сохраняется в переменнойp
. - После завершения внутреннего цикла, значение переменной
p
выводится на экран с помощью функцииwriteln()
. - Цикл
for
снаружи завершается, и программа переходит к следующей итерации. - Если внутренний цикл не выполнялся ни разу, то значение переменной
p
останется равным 1. - Код выводит произведение отрицательных элементов каждого столбца матрицы на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д