{* Задача337 *}
REM basic
'
В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте ( первой по порядку, если их несколько).CLS
INPUT "N"; n
RANDOMIZE TIMER
Dim x(n)
PRINT "Massiv X:"
For i = 1
To n
x(i) = INT(100 * RND(1) - 50)
PRINT x(i);
Next
PRINT
max1 = x(1)
For i = 1
To n
If x(i) > max1
Then max1 = x(i): max2 = i
Next
PRINT "Massiv X (noviy):"
For i = 1
To n
If i < max2
And x(i) < 0
Then x(i) = 0
PRINT x(i);
Next
End