Главная Статьи Математика Найти числа B1,B2..Bn соответствующие средним арифметическим строк матрицы

Найти числа B1,B2..Bn соответствующие средним арифметическим строк матрицы

Оцените материал
(0 голосов)

Найти числа 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;
Прочитано 5422 раз

Авторизация



Счетчики