Заполните массив случайными вещественными числами от 50 до 90 и вывести ** печать в...

Question

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

Answer 1

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

End Sub