Программа QBASIC. Одномерный массив из 7 элементов (-1,0,-5, -3, 4, 8, 1). Определите количество отрицательных чисел массива.

CLS DIM M(100) DATA -1,0,-5,-3,4,8,1 S = 0 FOR i = 1 TO 7 READ M(i) IF M(i) < 0 THEN S = S + 1 END IF NEXT i PRINT "S="; S