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

Question

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

Answer 1

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;

Comments

не компилируется, выдает ошибку

---

какую ошибку и номер строки

---

код
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
s:integer;
y:double;
begin
StringGrid1.ColCount := 11;
StringGrid1.RowCount := 11;
for i := 1 to StringGrid1.ColCount - 1 do
StringGrid1.Cells[i, 0] := IntToStr(i) ;
for j := 1 to StringGrid1.ColCount - 1 do
StringGrid1.Cells[0, j] := IntToStr(j);
for i:=1 to StringGrid1.ColCount do
for j:=1 to StringGrid1.ColCount do
stringgrid1.Cells[i,j]:=IntToStr(random(50)-25);
end;
begin
s:=0;
for j:=1 to 11 do

---

ошибки
[dcc32 Error] Unit1.pas(58): E2003 Undeclared identifier: 's'
[dcc32 Error] Unit1.pas(59): E2003 Undeclared identifier: 'j'
[dcc32 Error] Unit1.pas(60): E2003 Undeclared identifier: 'StringGrid1'
[dcc32 Error] Unit1.pas(60): E2250 There is no overloaded version of 'StrToInt' that can be called with these arguments
[dcc32 Warning] Unit1.pas(66): W1011 Text after final 'END.' - ignored by compiler
[dcc32 Error] Unit1.pas(28): E2065 Unsatisfied forward or external declaration: 'TForm1.Butto

---

задание
Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25]. Найти среднее арифметическое элементов первой строки. Вывести исходный массив и полученный результат на печать.

---

всё правильно, begin перед s:=0 к чему относится.

---

всё правильно - в смысле что есть ошибки.

---

я не знаюпочему выдает ошибки

---

я уже писал у тебя часть кода вне обработчика кнопки - поэтому и ошибки