Найти произведение элементов в каждой строке матрицы - Turbo Pascal (29178)
Формулировка задачи:
Найти произведение элементов в каждой строке массива размером MxN, элементы которого вводятся с клавиатуры.
Решение задачи: «Найти произведение элементов в каждой строке матрицы»
textual
Листинг программы
- 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.
- Наконец, программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д