Задача:
В заданной матрице С записать на место отрицательных элементов нули, а на место положительных - единицы. Исходную и полученную матрицы вывести в общепринятом виде.
На форме есть 3 StringGrida и кнопка, не могу вывести измененную матрицу в 3 StringGrid. Помогите.
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
x:array[1..10,1..10] of integer;
begin
with StringGRid1 do
for i:=0 to RowCount do
for j:=0 to ColCount do
StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j];
end;
Begin
for i:=1 to m do
for j:=1 to n do
begin
if x[i,j]<=0 then x[i,j]:=0 else x[i,j]:=1;