Массив: определить число элементов, имеющих четные порядковые номера и являющихся нечетными числами - QBasic

Узнай цену своей работы

Формулировка задачи:

Даны натуральные числа n, a(1)...a(n). Определить количество членов a(k) последовательность a(1)...a: Имеющих четные порядковые номера и являющихся нечетными числами Помогите,пожалуйста!

Решение задачи: «Массив: определить число элементов, имеющих четные порядковые номера и являющихся нечетными числами»

textual
Листинг программы
CLS
RANDOMIZE TIMER
INPUT "N = "; n
 
DIM x(1 TO n)
 
FOR i = 1 TO n
   x(i) = INT(40 * RND) + 1
   PRINT USING "####"; x(i);
NEXT: PRINT : PRINT
 
FOR i = 1 TO n
   IF x(i) MOD 2 = 1 AND i MOD 2 = 0 THEN k = k + 1
NEXT
 
PRINT "K ="; k
END

Объяснение кода листинга программы

  1. CLS — команда очистки экрана.
  2. RANDOMIZE TIMER — команда установки генератора случайных чисел.
  3. INPUT N =; n — ввод количества элементов в массив.
  4. DIM x(1 TO n) — создание массива x размером n.
  5. FOR i = 1 TO n — цикл по всем элементам массива x.
  6. *x(i) = INT(40 RND) + 1** — заполнение массива x случайными нечетными числами от 1 до 40.
  7. PRINT USING ####; x(i); — вывод значения элемента массива x с кодовым обозначением.
  8. NEXT — переход к следующему элементу массива.
  9. FOR i = 1 TO n — цикл по всем элементам массива x.
  10. IF x(i) MOD 2 = 1 AND i MOD 2 = 0 THEN k = k + 1 — подсчет количества элементов массива x, удовлетворяющих условию (нечетный элемент и четный порядковый номер).
  11. PRINT K =; k — вывод значения переменной k, равного количеству удовлетворяющих условию элементов массива x.
  12. END — завершение работы программы.

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

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