Question

Помогите пожалуйста:))))дан двумерный массив А(М; N) из случайных однозначных чисел.найти произведение элементов каждой строки этого массива( в программе паскаль)

Answer 1

В общем виде так(выводит матрицу случайных чисел и вектор произведений их сток:
program test;
var
 A:array[1..10,1..10] of integer;
 B:array[1..10] of integer;
 i,j:integer;
begin
for i:=1 to 10 do
 begin
 B[i]:=1;
 for j:=1 to 10 do
  begin
  A[i,j]:=random(10);
  write(A[i,j],' ');

  B[i]:=B[i]*A[i,j];
  end;
 writeln;
 end;

writeln;
for i:=1 to 10 do
write(B[i],' ' );
readln;
end

Answer 2

Для решения данной задачи вам потребуется использовать циклы. В программе на языке Pascal можно использовать циклы for или while.

Приведу пример программы на языке Pascal, которая находит произведение элементов каждой строки двумерного массива А:

program multiplication;

const
  M = 3; // количество строк
  N = 4; // количество столбцов

var
  A: array[1..M, 1..N] of integer; // объявление двумерного массива
  i, j: integer; // переменные для циклов
  product: integer; // переменная для хранения произведения элементов строки

begin
  // заполнение массива случайными однозначными числами
  randomize;
  for i := 1 to M do
  begin
    for j := 1 to N do
    begin
      A[i, j] := random(10); // генерация случайного числа от 0 до 9
    end;
  end;

// нахождение произведения элементов каждой строки
  for i := 1 to M do
  begin
    product := 1; // начальное значение произведения
    for j := 1 to N do
    begin
      product := product * A[i, j];
    end;
    writeln('Произведение элементов строки ', i, ': ', product);
  end;

readln;
end.

В данной программе объявляется двумерный массив А размером M x N и заполняется случайными однозначными числами. Затем с помощью двух вложенных циклов вычисляется произведение элементов каждой строки и выводится на экран. Для генерации случайных чисел используется функция randomize и random.

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