решение со стороны qbasic
заполнение массива(надеюсь сможешь)
for n=0 to n-1
k=0
if A(N)<0 then
k=k+1
endif
next n
print k
решение со стороны qbasic
заполнение массива(надеюсь сможешь)
for n=0 to n-1
k=0
if A(N)<0 then
k=k+1
endif
next n
print k