{* Задача123 *}

REM basic

' Найти последний положительный элемент в массиве A(N).


CLS
INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
INPUT "vvedite elementi massiva a(n)"; a(i)
Next
For I = N To 1 Step -1
If a(i)>0 Then PRINT a(i): Exit For
Next
End