Найти произведение элементов в каждой строке матрицы - Turbo Pascal (29178)

Формулировка задачи:

Найти произведение элементов в каждой строке массива размером MxN, элементы которого вводятся с клавиатуры.

Решение задачи: «Найти произведение элементов в каждой строке матрицы»

Листинг программы

program qq;
var m, n, i, j: integer;
    a: array [1..100, 1..100] of real;
    b: array [1..100] of real;
begin
  write ('Введите количество строк матрицы m = ');
  readln (m);
  write ('Введите количество столбцов матрицы n = ');
  readln (n);
  writeln ('Введите элементы массива:');
  
  for i:= 1 to m do
    for j:= 1 to n do
      begin
        write ('a[', i, ',', j, '] = ');
        readln(a[i,j]);
      end; 
  
  for i:=1 to m do
    begin
      for j:=1 to n do
        write (a[i,j], '   '); 
      writeln;
    end;
  
  for i:=1 to m do
    b[i]:=1;
    
  for i:=1 to m do
    begin
      for j:=1 to n do
        b[i]:=b[i]*a[i,j];
      writeln ('Произведение элементов в ', i, ' строке = ', b[i]);
    end;  
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных m, n и i, которые будут использоваться для работы с матрицей. Также объявляется переменная a, которая будет представлять собой матрицу размером 100x100, и переменная b, которая будет представлять собой матрицу размером 100x1.
Затем программа запрашивает у пользователя количество строк и столбцов матрицы и сохраняет эти значения в переменных m и n соответственно.
После этого программа запрашивает у пользователя элементы массива a и сохраняет их в соответствующем массиве.
Далее программа выводит произведение элементов каждой строки матрицы a.
Затем программа выводит произведение элементов каждой строки матрицы b.
Наконец, программа завершается.