1 2 3 4 5 6 7 8 9 10 11 12 13 14 | INPUT "vvedite kol-vo elementov ", nDIM a(n)FOR i = 1 TO n INPUT "vvedite element ", a(i)NEXTPRINT "massiv"FOR i = 1 TO n PRINT a(i);NEXTPRINTFOR i = 1 TO n IF a(i) < 0 THEN s = s + a(i)NEXTPRINT "summa="; s |
Тестирование выполнено в программе QB64 ( Скачать )