1 2 3 4 5 6 7 8 9 10 11 12 13 | CLSINPUT "vvedite razmer massiva"; nDIM a(n)FOR i = 1 TO n PRINT "vvedite a("; i; ")" INPUT a(i) IF a(i) < 0 THEN otr = otr + 1NEXTFOR i = 1 TO n PRINT a(i);NEXTPRINTPRINT "otr ="; otr |
Тестирование выполнено в программе QB64 ( Скачать )