{* Задача77 *}

REM basic

' Составить программу заполнения массива из 15 элементов случайными числами в диапазоне от 1 до 10. Предусмотреть вывод массива на экран.


Dim mas(15) As Integer
For I=0 To 14
mas(I)=1+INT(RND*10)
Next
CLS
PRINT "Вывод массива"
For I=0 To 14
PRINT mas(I);
Next
End