формирование одномерного массива, из матрицы... Опции

[Slim]

Собственно одна из модульных задач на тему "Массивы"
Лекций по Массивам у нас была только одна, и то на две странички!
"Хороший препод" - Десятникова
Никто в группе не написал модуль!
Теперь буду пытаться решить задачи на 23 варианта, чтоб нормально пересдать модуль!

Одна из задач:

Из исходной матрицы сформировать одномерный массив, содержащий только неценные отрицательные элементы.
Исходная матрица С (MxN)
Новый массив D1

Создаём матрицу

Код

Program Mod1;
Var a: array [1..50, 1..50] of Integer;
i, j, n, m: integer;
Begin
Write ("Сколько строк? ");
ReadLn(m);
Write ("Сколько столбцов? ");
ReadLn(n);
For i:=1 to m do
Begin
For j:=1 to n do
begin
a[i,j]:=int ( rnd * 46 ) -20;
write( a [ i, j ], " " );
end;
writeLn;
end;
End.

А дальше, не могу понять...как создать из этой матрицы, одномерный массив?

Сообщение отредактировано: Slim - 12.04.2007 23:27

[Slim]

Из исходной матрицы сформировать одномерный массив, содержащий только отрицательные элементы.
Исходная матрица С (MxN)
Новый массив D1

По теории, нужно создать новый одномерный массив размером m*n, где m и n размерность 2-мерного массива
и циклом по 2мерному массиву присваиваем значения 1мерному!
Только как это реализовать на практике???

Двухмерный массив:

Код

Program Mod1;
Var a: array [1..50, 1..50] of Integer;
i, j, n, m: integer;
Begin
Write ("Сколько строк? ");
ReadLn(m);
Write ("Сколько столбцов? ");
ReadLn(n);
For i:=1 to m do
Begin
For j:=1 to n do
begin
a[i,j]:=int ( rnd * 46 ) -20;
write( a [ i, j ]);
end;
writeLn;
end;
End.

Сообщение отредактировано: Slim - 16.04.2007 12:43