Question

Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В Помогите плиз

Answer 1

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var A:array of array of Integer;
  B:array of Integer; i,j,N,M,t:Integer;
begin { TODO -oUser -cConsole Main : Insert code here } t:=0;
while not (N in [1..100]) do begin write('N = ');
    readln(N);
end;
while not (M in [1..100]) do begin write('M = ');
    readln(M);
end; SetLength(A,N,M);
  Writeln('Matrix is - ');
for i:=0 to N-1 do begin for j:=0 to M-1 do begin A[i,j]:=Random(30)-10;
      write(A[i,j],' ');
if A[i,j]>=0 then begin SetLength(B,t+1);
        B[t]:=A[i,j]; Inc(t);
end;
end;
    Writeln;
end; Write('Massive B = ');
for i:=0 to t-1 do write(B[i],' ');
  A:=nil;
  B:=nil;
  readln;
end.

Answer 2

Для выполнения данной задачи вам понадобится использовать язык программирования. Ниже приведен пример кода на Python, который выполняет указанное действие:

pythonCopy code
def extract_positive_elements(matrix):
    positive_elements = []
    
    for row in matrix:
        for element in row:
            if element > 0:
                positive_elements.append(element)
    
    return positive_elements

# Пример матрицы
matrix = [
    [1, -2, 3],
    [-4, 5, 6],
    [7, -8, 9]
]

result = extract_positive_elements(matrix)
print(result)

Этот код определяет функцию extract_positive_elements, которая принимает матрицу в качестве аргумента и возвращает одномерный массив положительных элементов из этой матрицы. Вы можете заменить matrix на вашу собственную матрицу, чтобы выполнить задачу для конкретного случая.