Задачи в бэйсике на массивы

[QBasic-враг мой]

Создать одномерный массив из десяти эл-тов,
обнулить все после второго отрицательного

как? о_о


Учитэль говорит, что я всё неправильно пишу
что не так?

CLS
DIM mas (10)
print "ввод значений"
DAta тра-ля-ля числа
for i=1 to 10
read mas(i)
next i
S=0
For i = 1 to 10
if S<2 then
if mas(i)<0 then s=s+1
end if
else mas(i)=0
end if
next i
for i = 1 to 10
print mas(i)
next i

[Sazary]

Учитэль говорит, что я всё неправильно пишу
что не так?

Мм... Да все так. Кроме этого, конечно )

DAta тра-ля-ля числа

Может, ему это не нравится?

for i=1 to 10
read mas(i)
next i

и нужно вручную вводить?

for i=1 to 10 
input mas(i)
next i