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

if (a[i]>0) and (a[i]<min_a)then

begin

min_a:= a[i];

min_a_i:= i;

end;

for i:= 1 to kol_b do

if (b[i]<0) and (b[i]>max_b)then

begin

max_b:= b[i];

max_b_i:= i;

end;

end;

procedure TForm1.buCClick(Sender: TObject);

var i, j, k: integer;

begin

// формирование массивов с1 и с2

kol_c1:=0;

for i:= min_a_i+1 to kol_a do

begin

kol_c1:= kol_c1+1;

c1[kol_c1]:= a[i];

end;

for i:= 1 to max_b_i do

begin

kol_c1:= kol_c1+1;

c1[kol_c1]:= b[i];

end;

kol_c2:=0;

for i:= 1 to min_a_i do