{* Задача168 *}

REM basic

' Все отрицательные элементы массива К (11), заменить числом 10


 Dim K(11) As Integer
    For i = 1 To 11
     K(i) = (RND*5)-2
  Next
    For i = 1 To 11
     If K(i) < 0 Then K(i) = 10
  Next: CLS
    For i = 1 To 11
     PRINT K(i)
  Next
End