Лекций по Массивам у нас была только одна, и то на две странички!
"Хороший препод" - Десятникова
Никто в группе не написал модуль!
Теперь буду пытаться решить задачи на 23 варианта, чтоб нормально пересдать модуль!
Одна из задач:
Цитата
Из исходной матрицы сформировать одномерный массив, содержащий только неценные отрицательные элементы.
Исходная матрица С (MxN)
Новый массив D1
Исходная матрица С (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.
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.
А дальше, не могу понять...как создать из этой матрицы, одномерный массив?