[Morganolla]

Сообщение от wolfhound512

Можно:

Type Body
	Field x,y,z
End Type

Dim array.Body(10)

For i=0 To 10
	array(i) = New Body
	array(i)\x=Rnd(1,10)
	array(i)\y=Rnd(1,10)
	array(i)\z=Rnd(1,10)
Next

For i=0 To 10
	Text 10, i*10, array(i)\x
	Text 100, i*10, array(i)\y
	Text 200, i*10, array(i)\z
Next

WaitKey()

Пробовал плотно поработать с массивами из типов... Ё-моё, какие же эти типы глюкавые в Блице!!! Весь испелевался!!! И отказался от них... совсем!!!