Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Form1: TForm1;
SG1 : Array[1..6,1..6] Of real;
SG2 : Array[1..5] Of real;
i, j: integer;
s:real;
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
S:=s+SG1[i,j];
end;
SG2[i]:=S/5;
End;
в таком варианте мне выдало ошибку что то на счет float я так понимаю fixedcols может быть только типа integer