В исходном массиве X(n) вывести номера тех элементов массива, которые являются простыми числами. - QBasic

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

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

Задание № 1. В исходном массиве X(n) вывести номера тех элементов массива, которые являются простыми числами. Задание № 2. В исходном массиве найти номера двух элементов, наименее отличающихся друг от друга

Решение задачи: «В исходном массиве X(n) вывести номера тех элементов массива, которые являются простыми числами.»

textual
Листинг программы
  1. DEFINT A, I-J, N, R
  2. OPTION BASE 1
  3. RANDOMIZE TIMER
  4. CLS
  5. INPUT "Vvedite N"; n
  6. DIM a(n)
  7.  
  8. FOR i = 1 TO n
  9.    a(i) = 81 * RND - 40.5
  10.    PRINT USING "####"; a(i);
  11. NEXT i
  12.  
  13. r0 = ABS(a(1) - a(2))
  14. i1 = 1
  15. i2 = 2
  16. FOR i = 1 TO n - 1
  17.    FOR j = i + 1 TO n
  18.       r = ABS(a(i) - a(j))
  19.       IF r < r0 THEN
  20.          r0 = r
  21.          i1 = i
  22.          i2 = j
  23.       END IF
  24.    NEXT j
  25. NEXT i
  26.  
  27. PRINT
  28. PRINT "i1 = "; i1
  29. PRINT "i2 = "; i2
  30. END

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


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

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

11   голосов , оценка 3.636 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы