На ум приходит пока только
Code: Select all
sub d_main()
var x=8
var y=8
var i,j
var arrval=x+1 #+1 - страховка, чтоб не делать проверок на выход за пределы массива
if x<=y then
arrval=y+1 #+1 - см. выше
endif
arrval=arrval*arrval
uo.print(str(arrval))
dim arr[val(str(arrval))]
for i=0 to x-1
for j=0 to y-1
arr[i+j*x]=uo.random(20)
next
next
var msg=''
uo.textclear()
for i=0 to x-1
for j=0 to y-1
msg='arr['+str(i)+']['+str(j)+']='
uo.textprint(msg+str(arr[i+j*x]))
next
next
uo.textopen()
end sub