[Drozh]

В основном у тебя все верно, просто с коэффициентами i и j напутался. Вот это вроде рабочий вариант

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

<b>procedure</b> TForm1.Button2Click(Sender: TObject); <b>var</b>  Max, i, j: integer; <b>begin</b>    <b>for</b> i := 0 <b>to</b> n <b>do</b>  <b>begin</b>   Max := B[0, i];      <b>for</b> j := 1 <b>to</b> n <b>do</b>     <b>if</b> B[j, i] > Max <b>then</b> Max := B[j, i]; // максимальное значение      <b>for</b> j := 0 <b>to</b> n <b>do</b>     StringGrid3.Cells[j, i] := IntToStr(A[j, i]*Max); // перемножаем соотв. коэффициенты  <b>end</b>; <b>end</b>;     <b>procedure</b> TForm1.Button3Click(Sender: TObject); <b>var</b>  Mul, i, j: integer; <b>begin</b>  <b>for</b> i := 0 <b>to</b> n <b>do</b>  <b>begin</b>   Mul := 1;      <b>for</b> j := 0 <b>to</b> n <b>do</b>     Mul := Mul*B[j, i]; // находим произведение элементов строки      <b>for</b> j := 0 <b>to</b> n <b>do</b>     StringGrid3.Cells[i, j] := IntToStr(A[i, j] + Mul);  <b>end</b>; <b>end</b>;