Определите количество 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
