Определите количество 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.5 из 5
Похожие ответы