1 2 3 4 5 6 7 8 9 | INPUT "razmernost ", nDIM a(n)FOR i = 1 TO n INPUT "element ", a(i)NEXTFOR i = 1 TO n IF a(i) > 0 AND INT(a(i)) = a(i) THEN s = s + a(i)NEXTIF s > 999 AND s < 10000 THEN PRINT "yes" ELSE PRINT "no" |
Тестирование выполнено в программе QB64 ( Скачать )