{* Задача166 *}

REM basic

' Измените знак всех чётных елементов массива состоящих из L чисел


CLS
INPUT "Vvedite kol-vo chisel:", L
Dim A(L) As Integer
  
   For i = 1 To L
     A(i) = RND * 51 - 25
     PRINT A(i);
   Next: PRINT
 
   For i = 1 To L
     If (A(i) And 1) = 0 Then A(i) = -A(i)
   Next

   For i = 1 To L
     PRINT A(i);
   Next
End