zadach135.BAS

{* Задача135 *}

REM basic

' В одномерном массиве найти номер третьего чётного элемента.


CLS
INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
    INPUT "zapolnite massiv"; a(i)
Next
Do
    j = j + 1
    If (a(j) And 1) = 0 Then k = k + 1
Loop Until k = 3 Or j = n
If k = 3 Then
    PRINT "nomer tretego chetnogo jelementa:"; j
Else PRINT "net treh chetnyh jelementov"
End If
End