Question

Дан массив А размерностью (m, n). Найти произведение положительных элементов расположенных выше диагонали и заменить все нулевые элементы исходного массива на полученное произведение. Срочно. Пожалуйста

Answer 1

//Pascal ABC.NET v3.0 сборка 1111

Var
 ma:array of array of integer;
 n,m,i,j,res:integer;
 b:boolean;
begin
 randomize;
 res:=1;
 b:=false;
 read(m,n);
 setlength(ma,m);
 for i:=0 to m-1 do
  setlength(ma[i],n);
 writeln('First matrix:');
  for i:=0 to m-1 do
   begin
    writeln;
     for j:=0 to n-1 do
      begin
       ma[i,j]:=random(10);
       write(ma[i,j]:5);
      end;
   end;
  if n>m then
   begin
   for i:=0 to m-1 do
    for j:=i+1 to n-1 do
     if ma[i,j]>0 then
      begin;
       res:=res*ma[i,j];
       b:=true;
      end;
   end
    else
    begin
     for i:=0 to n-1 do
      for j:=i+1 to n-1 do
       if ma[i,j]>0 then 
       begin;
         res:=res*ma[i,j];
         b:=true;
        end;
    end;
  if b=false then res:=0;
  writeln;
  writeln('Final array:');
   for i:=0 to m-1 do
    begin
     writeln;
      for j:=0 to n-1 do
       begin
        if ma[i,j]=0 then ma[i,j]:=res;
        write(ma[i,j]:5);
       end;
    end;
  writeln;
  writeln('res=',res);
end.

Answer 2

Задача: Найти произведение положительных элементов выше диагонали и заменить нулевые элементы

Для решения данной задачи, нам необходимо выполнить следующие шаги:

1. Инициализировать массив А размерностью (m, n). 2. Найти произведение положительных элементов, расположенных выше диагонали. 3. Заменить все нулевые элементы исходного массива на полученное произведение.

Шаг 1: Инициализация массива

Для начала, нам нужно инициализировать массив А размерностью (m, n). Однако, в вашем вопросе не указаны конкретные значения m и n. Пожалуйста, предоставьте эти значения, чтобы мы могли продолжить с решением задачи.

Шаг 2: Найти произведение положительных элементов выше диагонали

После инициализации массива А, мы можем приступить к поиску произведения положительных элементов, расположенных выше диагонали. Для этого, мы будем перебирать элементы массива выше главной диагонали и умножать их на текущее значение произведения.

Шаг 3: Заменить нулевые элементы исходного массива

После нахождения произведения положительных элементов выше диагонали, мы заменим все нулевые элементы исходного массива на полученное произведение. Для этого, мы будем перебирать элементы массива и проверять, является ли текущий элемент нулевым. Если да, то мы заменим его на произведение.

Пример решения

Давайте рассмотрим пример решения данной задачи на языке Python:

def find_product_and_replace_zeros(matrix):
    m = len(matrix)
    n = len(matrix[0])

# Найти произведение положительных элементов выше диагонали
    product = 1
    for i in range(m):
        for j in range(i+1, n):
            if matrix[i][j] > 0:
                product *= matrix[i][j]

# Заменить нулевые элементы на произведение
    for i in range(m):
        for j in range(n):
            if matrix[i][j] == 0:
                matrix[i][j] = product

return matrix

Пожалуйста, предоставьте значения m и n, чтобы мы могли применить это решение к вашему конкретному случаю.