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