{* Задача149 *}

REM basic

' Дан Массив из 12 элементов ,Найти кол-во элементов массива после последнего элемента равного 17


CLS
RANDOMIZE TIMER
n = 12
Dim a(n)
For i = 1 To n: a(i) = FIX(RND * 35): Next
For i = 1 To n
    If f = 1 Then k = k + 1
    If a(i) = 17 Xor f = 1 Then f = 1 Else k = 0
Next
For i = 1 To n
    PRINT a(i);
Next
PRINT
PRINT k
End