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

Три.
псевдо код
int n = [массив]
int t =0
for(int i = 0; i < n; ++i){
   if (n[i] < 0){
   t +=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