{* Задача70 *}

REM basic

' Составить программу для вычисления произведения всех элементов массива, имеющий индекс кратный 3.


RANDOMIZE TIMER
INPUT "vvedite n"; n
Dim a(n): p = 1
For i = 1 To n
    a(i) = INT(RND * 19) - 9
    PRINT a(i);
Next
For i = 1 To n
    If i Mod 3 = 0 Then p = p * a(i): a(i) = 0
Next
PRINT
PRINT "p="; p
For i = 1 To n
    PRINT a(i);
Next
End