{* Задача167 *}

REM basic

' Найти количество нулевых элементов массива R(15) , сформированного с помощью команды RND. распечатать номера нулевых элементов.


Dim R(15) As Integer
    For i = 1 To 15
     R(i) = (RND*5)-2
  Next: CLS
    For i = 1 To 15
     If R(i) = 0 Then PRINT i
  Next
 End