Программа определения произведения положительных элементов, кратных трем - Turbo Pascal
Формулировка задачи:
Здравствуйте. Помогите пожалуйста. Надо составить программу определения количества отрицательных элементов в кратных трем и диагоналях матрицы.
1.8 -8.8 0.0 6.5
6.3 -7.1 0.0 3.6
0.9 -6.8 0.0 1.9
1.8 -8.8 0.0 6.5
Решение задачи: «Программа определения произведения положительных элементов, кратных трем»
textual
Листинг программы
if (z[i,k]>0) and ((z[i,k]/3)>0 ) then
Объяснение кода листинга программы
- Переменная
z
представляет собой матрицу размером 2x3. - Функция
>0
проверяет, что элемент матрицыz[i,k]
больше нуля. - Функция
(z[i,k]/3)>0
проверяет, что элемент матрицыz[i,k]
кратен трем. - Если оба условия выполняются, то присваивается значение 1 переменной
product
, которая будет хранить произведение положительных элементов, кратных трем. - Код не использует вложенные списки.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д