[Valentinich]

В чём ошибка, при нажатии выбивает ошибку и выбрасывает из программы (

Код:

var
i,j:integer; s:real;
begin
for i:=1 to 11 do
    begin s:=0;
    for j:=1 to 5 do
       begin
        s:=s+StrToInt(Form1.StringGrid1.Cells[i,j]);
       end;
      Form1.StringGrid1.Cells[i,6]:=FloatToStr(s/5);
    end;
end;

Admin: Пользуемся тегами!