|
zadach302.BAS |
|
{* Задача302 *}REM basic ' Дана последовательность из N целых чисел. Определить , является ли она строго возврастающей .CLS
INPUT n
For i = 1 To n
t = g
INPUT " vvedite element"; g
If g < t Then f = 1
Next
If f 1 Then PRINT "yes" Else PRINT "no"
End
|