Определите количество k членов последовательности a1,a2,...an - VB
Формулировка задачи:
Даны натуральные числа n, a1, a2,...,an. Определите количество k членов последовательности a1,a2,...an, имеющих четные порядковые номера и являющихся четными числами.
Решение задачи: «Определите количество k членов последовательности a1,a2,...an»
textual
Листинг программы
Dim a() n = 20 ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 20) Print a(i); " "; If a(i) Mod 2 = 0 And i Mod 2 = 0 Then k = k + 1 Next Print: Print "k="; k