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

end;

var

Form1: TForm1;

matrix: array [1..7, 1..9] of integer;

a, b, c1, c2: array [1..20] of integer;

kol_a, kol_b, kol_c1, kol_c2, min_a, min_a_i, max_b, max_b_i: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

i, j: integer;

begin

Randomize; // включить генератор случайных чисел

for i:= 1 to 7 do

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

for i:= 1 to 9 do

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

for i:= 1 to 7 do

for j:= 1 to 9 do

begin

matrix[i, j]:= random(31);

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

end;

end;

procedure TForm1.buZapolnClick(Sender: TObject);

var i, j: integer;

begin

for i:= 1 to 7 do

for j:= 1 to 9 do