В исходном массиве X(n) вывести номера тех элементов массива, которые являются простыми числами. - QBasic
Формулировка задачи:
Задание № 1.
В исходном массиве X(n) вывести номера тех элементов массива, которые являются простыми числами.
Задание № 2.
В исходном массиве найти номера двух элементов, наименее отличающихся друг от друга
Решение задачи: «В исходном массиве X(n) вывести номера тех элементов массива, которые являются простыми числами.»
textual
Листинг программы
- DEFINT A, I-J, N, R
- OPTION BASE 1
- RANDOMIZE TIMER
- CLS
- INPUT "Vvedite N"; n
- DIM a(n)
- FOR i = 1 TO n
- a(i) = 81 * RND - 40.5
- PRINT USING "####"; a(i);
- NEXT i
- r0 = ABS(a(1) - a(2))
- i1 = 1
- i2 = 2
- FOR i = 1 TO n - 1
- FOR j = i + 1 TO n
- r = ABS(a(i) - a(j))
- IF r < r0 THEN
- r0 = r
- i1 = i
- i2 = j
- END IF
- NEXT j
- NEXT i
- PRINT "i1 = "; i1
- PRINT "i2 = "; i2
- END
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д