Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Как в Делфи в таблице TStringGrid подсчитать среднее арифметическое первой строки
если дан массив 10*10

Ответ оставил Гость

Procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: Integer;
  Average: double;
begin
  s:=0;
  for i := 1 to 10 do
    s := s + StrToInt(StringGrid1.Cells[1,i]);

  Average:=s/10;

  //Естественно в сроке StringGrid1.Cells[1,i] изначально должны быть данные, иначе произойдёт исключительная ситуация
end;