1 2 3 4 5 6 7 | CLSINPUT "vvedite kollichestvo chisel"; nFOR i = 1 TO n INPUT "vvedite chislo"; a IF a < 0 THEN k = k + 1NEXTPRINT "otricatelnyh chisel:"; k |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 | CLSINPUT "vvedite kollichestvo chisel"; nFOR i = 1 TO n INPUT "vvedite chislo"; a IF a < 0 THEN k = k + 1NEXTPRINT "otricatelnyh chisel:"; k |
Тестирование выполнено в программе QB64 ( Скачать )