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

kol_c2:= kol_c2+1;

c2[kol_c2]:= a[i];

end;

for i:= max_b_i+1 to kol_b do

begin

kol_c2:= kol_c2+1;

c2[kol_c2]:= b[i];

end;

// сортировка массивов с1 и с2

for j:= kol_c1 downto 2 do

for i:= 1 to kol_c1 do

if c1[i] > c1[i+1] then

begin

k:=c1[i] ;

c1[i]:=c1[i+1];

c1[i+1]:=k;

end;

for j:= kol_c2 downto 2 do

for i:= 1 to kol_c2 do

if c2[i] < c2[i+1] then

begin

k:=c2[i] ;

c2[i]:=c2[i+1];

c2[i+1]:=k;

end;

// отображениес1 ис2

sgC1.ColCount:= kol_c1 + 1;

for i:= 1 to kol_c1 do

begin