{* Задача344 *}

REM basic

' Даны натуральные числа n, a1, a2,..., an. Определить количество членов ak последовательности a1, a2,...an, имеющих четные порядковые номера и являющихся нечетными числами. И еще можно ли её решить не используя массив??


INPUT "vvedite kolichestvo chisel ",n
RANDOMIZE TIMER
PRINT"posledovatelnost"
For i=1 To n
a=INT(RND*50)
PRINT a;
If (i Mod 2=0) And (a Mod 20)Then k=k+1
Next
PRINT
PRINT "takih chisel=";k 
End