1 2 3 4 5 6 7 8 | INPUT "vvedite kol-vo elementov", nDIM a(n)FOR i = 1 TO n INPUT "vvedite element", a(i)NEXTFOR i = 1 TO n IF a(i) < 0 THEN PRINT a(i)NEXT |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 8 | INPUT "vvedite kol-vo elementov", nDIM a(n)FOR i = 1 TO n INPUT "vvedite element", a(i)NEXTFOR i = 1 TO n IF a(i) < 0 THEN PRINT a(i)NEXT |
Тестирование выполнено в программе QB64 ( Скачать )