В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте - QBasic

Формулировка задачи:

В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте(перво по порядку, если их несколько).

Решение задачи: «В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте»

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

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
max=1
FOR i=1 TO n
IF x(i)>x(max) THEN max=i
NEXT
FOR i=1 TO max-1
IF x(i)<0 THEN x(i)=0
NEXT
PRINT"novyj massiv"
FOR i=1 TO n
PRINT x(i);
NEXT

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

Пользователю предлагается ввести количество элементов в массиве (n).
Создается массив x(n) и заполняется пользователем.
Выводится исходный массив.
Находится номер максимального элемента массива (max).
Заменяются нулями все отрицательные элементы, предшествующие максимальной компоненте.
Выводится измененный массив.