Question

Двумерные массивы. Задача: В прямоугольной таблице подстчитать произведение элементов в каждой строке Составить блок-схему и программу на языках программирования Pascal и С++

Answer 1

Ответ:

c++

int main(){

int n,m;

cin>>n>>m;

for(int i=0;i<n;i++){

int p=1;

for(int j=0;j<m;j++){

int k;

cin>>k;

p*=k;

}

cout<<p;

}

}

Answer 2

Для решения данной задачи на языке программирования Pascal можно использовать двумерный массив и циклы. Блок-схема для данной задачи может выглядеть следующим образом:  Алгоритм решения задачи: 1. Объявляем переменные: - n, m - размеры таблицы (количество строк и столбцов); - table - двумерный массив размером nxm. 2. Вводим значения n и m с помощью функции Readln. 3. Заполняем таблицу элементами с помощью двойного цикла: - Внешний цикл перебирает строки (от 1 до n); - Внутренний цикл перебирает столбцы (от 1 до m); - Вводим значение элемента table[i, j] с помощью функции Readln. 4. Выводим на экран исходную таблицу с помощью двойного цикла: - Внешний цикл перебирает строки (от 1 до n); - Внутренний цикл перебирает столбцы (от 1 до m); - Выводим значение элемента table[i, j] с помощью функции Write. 5. Вычисляем произведение элементов каждой строки с помощью двойного цикла: - Внешний цикл перебирает строки (от 1 до n); - Внутренний цикл перебирает столбцы (от 1 до m); - Умножаем текущий элемент на переменную prod (произведение элементов строки). 6. Выводим на экран произведение элементов каждой строки с помощью цикла: - Перебираем строки (от 1 до n); - Выводим значение переменной prod. Пример программы на языке Pascal: ``` program matrix_product; var n, m, i, j: integer; table: array of array of integer; prod: integer; begin writeln('Введите количество строк таблицы: '); readln(n); writeln('Введите количество столбцов таблицы: '); readln(m); SetLength(table, n, m); for i := 0 to n - 1 do begin for j := 0 to m - 1 do begin writeln('Введите элемент table[', i + 1, ', ', j + 1, ']: '); readln(table[i, j]); end; end; writeln('Исходная таблица:'); for i := 0 to n - 1 do begin for j := 0 to m - 1 do begin write(table[i, j], ' '); end; writeln; end; for i := 0 to n - 1 do begin prod := 1; for j := 0 to m - 1 do begin prod := prod * table[i, j]; end; writeln('Произведение элементов строки ', i + 1, ': ', prod); end; end. ``` Программа запрашивает у пользователя количество строк и столбцов таблицы, заполняет таблицу элементами, выводит исходную таблицу и произведение элементов каждой строки.