1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | CLSRANDOMIZE TIMERINPUT "vvedite n"; nDIM a(n)FOR i = 1 TO n a(i) = INT(RND * 5 - 2)NEXTFOR i = 1 TO n IF a(i) = 0 THEN k = k + 1NEXTFOR i = 1 TO n PRINT a(i);NEXTPRINTPRINT "elementov = 0:"; k |
Тестирование выполнено в программе QB64 ( Скачать )