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

matrix[i, j]:= StrToInt(sgMatrix.Cells[j, i]);

end;

end;

procedure TForm1.buMassivClick(Sender: TObject);

var i: integer;

begin

// заданиемассиваА

kol_a:= 10;

sgA.ColCount:= kol_a + 1;

for i:= 1 to kol_a do

begin

a[i]:= random(31)- random(41);

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

sgA.Cells[i, 1]:= IntToStr(a[i]);

end;

// задание масива В

kol_b:= 7;

sgB.ColCount:= kol_b + 1;

for i:= 1 to kol_b do

begin

b[i]:= random(21)- random(26);

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

sgB.Cells[i, 1]:= IntToStr(b[i]);

end;

// поиск максимума и минимума

min_a:= 100;

min_a_i:= 1;

max_b:= -100;

max_b_i:= 1;