{* Задача66 *}

REM basic

' Дан массив целых чисел X(n).Вывести номера тех элементов массива, которые являются
' простыми числами.Исходный массив элементов получить с помощью датчика случайных чисел.
' Значение буквенных переменных задавать с клавиатуры.


CLS
INPUT "Kol-vo elementov :", n%
Dim X(n%) As Integer
RANDOMIZE TIMER
For i% = 1 To n%
   X(i%) = RND * 200
Next
For i% = 1 To n%
   C% = X(i%): P% = 1
   For j% = 2 To C% - 1
      If C% Mod j% = 0 Then P% = 0
   Next
   If P% Then PRINT Using "  ####  "; i%;
Next
End