Определить количество чётных элементов массива - QBasic
Формулировка задачи:
Определить количество чётных элементов массива X(n).Вывести исходный массив и полученное значение . Упорядочить массив X(n) по невозростанию.Вывести полученный массив.Исходный массив элементов получить с помощью датчика случайных чисел .Значения буквенных переменных задавать с клавиатуры
Решение задачи: «Определить количество чётных элементов массива»
textual
Листинг программы
- CLS
- INPUT "Vvedite n: ", N
- DIM X(N)
- RANDOMIZE TIMER
- FOR I = 1 TO N
- X(I) = INT(RND * 100)
- IF X(I) MOD 2 = 0 THEN S = S + 1
- PRINT X(I)
- NEXT I
- FOR I = 1 TO N
- FOR J = I + 1 TO N
- IF (X(I) < X(J)) THEN SWAP X(I), X(J)
- NEXT J
- LOCATE I + 1, 8
- PRINT X(I)
- NEXT I
- PRINT "Chetnih:"; S
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
