{* Задача13 *}

REM basic

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


INPUT "введите количество элементов",n
Dim a(n) As Integer
j=-10000
For i =1 To n
INPUT k
a(n)=k
If kJ Then j=k
Next i
PRINT "максимальное "
PRINT k