1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | INPUT "vvedite razmer massiva ", nDIM a(n)RANDOMIZE TIMERPRINT "ishodnyj massiv"FOR i = 1 TO n a(i) = INT(RND * 99) + 2 PRINT a(i);NEXTFOR i = 1 TO n f = 0 FOR j = 2 TO SQR(a(i)) IF a(i) MOD j = 0 THEN f = 1 NEXT IF f = o THEN m = m + 1NEXTPRINTPRINT "v massive "; m; " prostyh chisel" |
Тестирование выполнено в программе QB64 ( Скачать )