{* Задача65 *}

REM basic

' Заменить нечетные элементы на 0.


CLS
  INPUT "Kol-vo elementov :", N
  Dim A(N) As Integer
  RANDOMIZE TIMER
For i = 1 To N
    A(i) = RND * 18 - 9
Next
For i = 1 To N
    If (A(i) And 1) = 1 Then A(i) = 0
Next
For i = 1 To N
    PRINT A(i);
Next
End