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) >= 0 THEN k = k + 1: b(k) = iNEXTFOR i = 1 TO k PRINT b(i); " ";NEXT |
Тестирование выполнено в программе QB64 ( Скачать )