Delphi-Help

Главная

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

Авторизация



Счетчики