Найти числа B1,B2..Bn соответствующие средним арифметическим строк матрицы
procedure TForm1.BitBtn1Click(Sender: TObject);
var
A:array of integer;
i,j:Integer;
begin
SetLength(A,StringGrid1.RowCount);
for i:=0 to StringGrid1.RowCount-1 do
begin
for j:=0 to StringGrid1.ColCount-1 do
begin
a[i]:=a[i]+StrToInt(StringGrid1.Cells[j,i]);
StringGrid2.Cells[0,i]:=FloatToStr(a[i]/StringGrid1.RowCount);
end;
end;
|