В заданном массиве Х{N} замените нулями все отрицательные элементы (используйте циклическую структуру)- QBasic(Бейсик)

input "vvedite kol-vo elementov ",n
dim x(n)
for i=1 to n
input"vvedite element ",x(i)
next
print"ishodnyj massiv"
for i=1 to n
print x(i);
next
print
for i=1 to n
if x(i)<0 then x(i)=0
next
print"novyj massiv"
for i=1 to n
print x(i);
next