Заполните массив случайными вещественными числами от 50 до 90 и вывести на печать в строку через запятую.

Sub massiv()  M=InputBox("введите размерность массива M ")  i=1  S=""  Dim mas()  ReDim mas(M)  While i<=Int(M)      mas(i)=Round(Rnd*100)      if (mas(i)>=50) And (mas(i)<=90) Then          S=S+Str(mas(i))          If i<>Int(M) Then S=S+","          i=i+1       End if    Wend   MsgBox SEnd Sub