Помогите решить задачку

[Zyklone]

Помогите решить задачку

Помогите, пожалуйста, с решением задачи:
Дан одномерный массив arrX(100) As Integer. Необходимо определить длину максимальной последовательности элементов, отсортированных по возрастанию. (Если весь массив отсортирован, то результат будет 101).

 

[interacia]

(Если весь массив отсортирован, то результат будет 101).

Этв строчка немного настораживает почему именно 101 а не 100. В массиве же 100 чисел.
Добавил проверку на случай если выпадет 100 чисел и все по возрастанию стоят, тогда выведет 101.

IF N = PRED THEN PRED = PRED + 1

Если что тогда строчку эту можно просто удалить.

CLS
RANDOMIZE TIMER
DIM N
N = 100
DIM ARRX(N)
FOR I = 1 TO N
ARRX(I) = INT(RND(I) * 100)
PRINT ARRX(I);
NEXT I

DIM PRED
DIM POSL
PRED = 0
POSL = 0

FOR I = 2 TO N
IF ARRX(I) >= ARRX(I - 1) THEN POSL = POSL + 1
IF ARRX(I) < ARRX(I - 1) AND POSL > PRED THEN PRED = POSL
IF ARRX(I) < ARRX(I - 1) THEN POSL = 0
NEXT I
IF PRED = 0 THEN PRED = POSL
PRED = PRED + 1
IF N = PRED THEN PRED = PRED + 1
PRINT "OTVET";
PRINT PRED

 

[Gruvi]

CLS
RANDOMIZE TIMER
DIM N
N = 100
DIM ARRX(N)
FOR I = 1 TO N
ARRX(I) = INT(RND(I) * 100)
PRINT ARRX(I);
NEXT I

FOR I = 1 TO N - тут возьми цикл от 0, а не от 1

 

[AlexZir]

Все верно, по правилам синтаксиса элементы массива нумеруются с 0 по N, так что в массиве arrX[100] ровно 101 элемент