1 2 3 4 5 6 7 8 9 10 11 12 13 14 | DIM a(10), b(10)FOR i = 1 TO 10 INPUT a(i)NEXTFOR i = 1 TO 10 PRINT a(i); " ";NEXTPRINTFOR i = 1 TO 10 IF a(i) >= 4 AND a(i) <= 10 THEN k = k + 1: b(k) = a(i)NEXTFOR i = 1 TO k PRINT b(i); " ";NEXT |
Тестирование выполнено в программе QB64 ( Скачать )