Код:
begin
For i:=1 To 6 Do
For j:=1 To 6 Do
If (StringGrid1.Cells[j-1,i-1]='') Then
SG1[i,j] := 0
Else
SG1[i,j] := StrToFloat(StringGrid1.Cells[j-1,i-1]); вот сюда я вставил
For i:=1 To 6 Do
Begin
S:=0;
for j:=1 to 6 do begin вот тут единичку заменил на 2
S:=s+SG1[i,j];
end;
SG2[i]:=S/5;
End;
Админ: Оформление кода, при рецедиве - бан!
усе разобрался, сделал цикл подсчета чтобы начинался не с 1 столбца а со второго