zadach337.BAS

{* Задача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