1 2 3 4 5 6 7 8 9 10 11 12 13 | DIM a(10)PRINT "massiv"FOR i = 1 TO 10 a(i) = INT(RND * 21) - 10 PRINT a(i); " ";NEXTPRINTFOR i = 1 TO 10 IF a(i) > 0 THEN sum = sum + a(i) IF a(i) < 0 THEN n = n + 1NEXTPRINT "summa polojit="; sumPRINT "kol-vo otricat="; n |
Тестирование выполнено в программе QB64 ( Скачать )