{* Задача404 *}

REM basic

' Найти максимальное значение из отрицательных элементов массива


CLS
RANDOMIZE TIMER
INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
    a(i) = INT(RND * 101 - 50)
Next
max = -1E38
For i = 1 To n
    If a(i) < 0 And a(i) > max Then max = a(i)
Next
For i = 1 To n
    PRINT a(i);
Next
PRINT
PRINT "max(-)="; max
End