zadach433.BAS

{* Задача433 *}

REM basic

' Дано натуральное число n, цлые числа a1, a2, a3,... an. Надо найти номер первого члена последовательности a1, a2 ,a3,... an; если чётных членов нет, то ответом должно быть число 0.


CLS
INPUT "n=";n
Dim a(n)
For i=1 To n
INPUT "Vvedite chlen posledovatelnosti";a(i)
Next 
PRINT "Posledovatelnost a"
For i=1 To n
PRINT a(i);
Next i
PRINT
f=0
For i=1 To n
If a(i) Mod 2=0 Then f=1
Next 
If f=1 Then 
PRINT 1
Else
PRINT 0
End If
End