[Scorpuha]

Код:

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 столбца а со второго