Определить количество элементов массива, предшествующих первому отрицательному - QBasic

Дан массив Р1,...,Р15.Определить N-колличество Р(i),предшествующих первому отрицательному P(i).Если N < 7,то заменить отрицательное P(i )на 0.

Листинг программы

FOR i=1 TO 15
IF t=0 AND p(i)>=0 THEN n= n+1 ELSE t=1
NEXT i
FOR i =1 TO 15
IF n<7 AND p(i)<0 THEN p(i)=0
NEXT i

Объяснение кода листинга программы

В этом коде выполняются два цикла for, которые проходят по элементам массива p от индекса 1 до 15.

Первый цикл проверяет условие t=0 AND p(i)>=0. Если это условие истинно, то переменная n увеличивается на 1. Если условие ложно, то переменной t присваивается значение 1.
Второй цикл проверяет условие n<7 AND p(i)<0. Если это условие истинно, то соответствующий элемент массива p заменяется на 0. Таким образом, в результате выполнения этого кода в массиве p будет отмечено семь или более отрицательных элементов, а остальные элементы останутся без изменений.