У меня все норм - без ошибок!
Вот мой вариант:
SuperStrict
Const MAX_N% = 5
Type TType
Field i%, f#, s$
Method New()
i = 549
f = 841.4785
s = "string"
End Method
End Type
Local arr:TType[,,]
arr = New TType[MAX_N, MAX_N, MAX_N]
'или
'Local arr:TType[MAX_N, MAX_N, MAX_N]
For Local i%=0 To MAX_N-1
For Local j%=0 To MAX_N-1
For Local k%=0 To MAX_N-1
arr[i, j, k] = New TType
Next
Next
Next
Print(arr[0, 0, 1].i)
Print(arr[0, 1, 0].f)
Print(arr[1, 0, 0].s)