1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CLS INPUT "Razmernost massiva="; n DIM a(n) RANDOMIZE TIMER FOR i = 1 TO n a(i) = INT(RND * 200 ) - 100 NEXT i FOR i = 1 TO n PRINT a(i); NEXT i PRINT PRINT "Nomera nechetnih otricatelnih kratnih 5 elementov" FOR i = 1 TO n b = i / 2 : c = i \ 2 d = a(i) / 5 : e = a(i) \ 5 IF (a(i) < 0 ) AND (b <> c) AND (d = e) THEN PRINT i; NEXT i |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | CLS INPUT "Razmernost massiva="; n DIM a(n) RANDOMIZE TIMER FOR i = 1 TO n a(i) = INT(RND * 200 ) - 100 NEXT i FOR i = 1 TO n PRINT a(i); NEXT i PRINT PRINT "Nomera nechetnih otricatelnih kratnih 5 elementov" FOR i = 1 TO n IF a(i) < 0 AND a(i) MOD 2 <> 0 AND a(i) MOD 5 = 0 THEN PRINT i; NEXT i |
Тестирование выполнено в программе QB64 ( Скачать )