Определить количество чётных элементов массива - 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
                        

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

10 голосов , оценка 4.3 из 5

Похожие ответы