{* Задача164 *}

REM basic

' Вычислить произведение элементов массива, значения которых кратны 3


Dim M%(10)
   CLS
   RANDOMIZE TIMER
For i = 1 To 10
  M%(i) = RND * 21 - 10
  PRINT M%(i);
Next i: PRINT
Pr# = 1
For i = 1 To 10
  If M%(i) Mod 3 = 0 Then Pr# = Pr# * M%(i)
Next i
PRINT "Proizvedenye:"; Pr#
End