Массив: определить число элементов, имеющих четные порядковые номера и являющихся нечетными числами - 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
Объяснение кода листинга программы
- CLS — команда очистки экрана.
- RANDOMIZE TIMER — команда установки генератора случайных чисел.
- INPUT
N =
; n — ввод количества элементов в массив. - DIM x(1 TO n) — создание массива x размером n.
- FOR i = 1 TO n — цикл по всем элементам массива x.
- *x(i) = INT(40 RND) + 1** — заполнение массива x случайными нечетными числами от 1 до 40.
- PRINT USING
####
; x(i); — вывод значения элемента массива x с кодовым обозначением. - NEXT — переход к следующему элементу массива.
- FOR i = 1 TO n — цикл по всем элементам массива x.
- IF x(i) MOD 2 = 1 AND i MOD 2 = 0 THEN k = k + 1 — подсчет количества элементов массива x, удовлетворяющих условию (нечетный элемент и четный порядковый номер).
- PRINT
K =
; k — вывод значения переменной k, равного количеству удовлетворяющих условию элементов массива x. - END — завершение работы программы.