Sub lab7()
Dim mat(), mas(), n, m As Integer
Dim k, l As Double
n = InputBox("kol-vo stolbcov")
m = InputBox("kol-vo strok")
k = n * m
ReDim mat(n, m)
ReDim mas(k)
l = 1
For i = 1 To n
For j = 1 To m
mat(i, j) = Rnd(1)
mas(l) = mat(i, j)
l = l + 1
Next j
Next i
For i = 1 To k
MsgBox (mas(i))
Next i
End Sub