Курсовая работа: Обработка матриц

sgC1.Cells[i, 1]:= IntToStr(c1[i]);

end;

sgC2.ColCount:= kol_c2 + 1;

for i:= 1 to kol_c2 do

begin

sgC2.Cells[i, 0]:= IntToStr(i);

sgC2.Cells[i, 1]:= IntToStr(c2[i]);

end;

end;

end.