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

Question

Информатика

Веруся

4 января, 13:25

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

+5

Ответы (1)

Знаете ответ?

Машоня · Answer 1

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 iInt (M) Then S=S+","

i=i+1

End if

Wend

MsgBox S

End Sub