Вычислить количество ненулевых элементов в чётных столбцах и их произведение - PascalABC.NET
Формулировка задачи:
Видел много подобных тем на этом форуме, но отсутствие пока что понимания как такового пока не позволяет сопоставить случаи. Помогите решить проблему, пожалуйста.
Суть задания в том, что необходимо вычислить кол-во ненулевых элементов в чётных столбцах и их произведение.
Решение задачи: «Вычислить количество ненулевых элементов в чётных столбцах и их произведение»
textual
Листинг программы
Program Lab6;
const
m = 3;
n = 7;
Var
A : Array [1..m, 1..n] of real;
Mult : Real;
Count : Integer;
i,j : Integer;
Begin
WriteLn ('Поочерёдно введите элементы массива A');
for i:=1 to m do
for j:=1 to n do
begin
Write ('A[',i,',',j,']= ');
ReadLn (A[i,j]);
end;
Mult := 1;
Count := 0;
for i:=1 to n do
for j:=1 to m do
if (not Odd(j)) and (A[i,j]<>0) then
begin
Count:= Count+1;
Mult:= Mult*(A[i,j]);
end;
WriteLn ('Количество ненулевых элементов в чётных столбцах = ',Count);
WriteLn ('Произведение ненулевых элементов в чётных столбцах = ',Mult);
ReadLn;
End.
Объяснение кода листинга программы
Список действий в коде:
- Ввод данных.
- Объявляются переменные и массив.
- Задаются значения для констант m и n.
- Выводится сообщение с просьбой ввести элементы массива A.
- Происходит ввод элементов массива A с помощью двух вложенных циклов.
- Вычисления.
- Инициализируются переменные Mult и Count.
- Два вложенных цикла вычисляют произведение ненулевых элементов в чётных столбцах и количество таких элементов.
- Условие (not Odd(j)) and (A[i,j]<>0) проверяет, что элемент находится в чётном столбце и не равен нулю.
- Вывод результатов.
- Выводится количество ненулевых элементов в чётных столбцах.
- Выводится произведение ненулевых элементов в чётных столбцах.
- Запрос на ввод для завершения работы программы.