1 2 3 4 5 6 7 8 9 10 11 | n = 10DIM a(n), 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 n PRINT " "; b(i)NEXT |
Тестирование выполнено в программе QB64 ( Скачать )