Вечер добрый, вопрос такой :
Дан массив R(N,M).Построить вектор из элементов матрицы, удовлетворяющей условию R(I,J)
В PascalABC.NET

Предыдущий
вопрос Следующий
вопрос

Пример решения данной задачи на языке PascalABC.NET:

program CreateVector;
var
R: array of array of Integer;
vec: array of Integer;
N, M, i, j, k: Integer;
begin
Write('Введите количество строк N: ');
Readln(N);
Write('Введите количество столбцов M: ');
Readln(M);
SetLength(R, N, M);
// Заполнение матрицы R
for i := 0 to N - 1 do
begin
for j := 0 to M - 1 do
begin
Write('Введите элемент R[', i, ',', j, ']: ');
Readln(R[i, j]);
end;
end;
SetLength(vec, N * M);
k := 0;
// Построение вектора из элементов матрицы, удовлетворяющих условию R(I,J)
for i := 0 to N - 1 do
begin
for j := 0 to M - 1 do
begin
if R[i, j] > 0 then
begin
vec[k] := R[i, j];
k := k + 1;
end;
end;
end;
// Вывод результирующего вектора
Write('Вектор из элементов матрицы, удовлетворяющих условию R(I,J): ');
for i := 0 to k - 1 do
begin
Write(vec[i], ' ');
end;
end.

Данная программа сначала запрашивает у пользователя количество строк и столбцов матрицы, затем заполняет матрицу R значениями. После этого программа строит вектор из элементов матрицы, удовлетворяющих условию R(I,J) (в данном случае условие - элемент матрицы больше 0) и выводит этот вектор на экран.