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