ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от warkk

Задача на Паскале: ........, Если масисив не упорядочен, то определить длину упорядоченной часта массива.
я делаю так

Код:

t:=0;
        for i:=0 to n do
            begin
                 if m[i]<m[i+1] then k:=k+1
                 else
                     begin
                          if t<k then
                             begin
                                  t:=k;
                                  k:=1;
                             end

И если масив состоит из 12123123451
Выведет 5, т.к. это самая длинная упорядочена часть масива.
Но если 12123123456
То выведет 3, т.е. оно у меня не правильно считает, потому что не выполняется условие f m[i]<m[i+1]
Как сделать что бы нормально считало?

Цитата:

i:=2;
while (mas[i-1] <= mas[i] )and(i<=masLength) do
inc(i);
if i = 2 then write('dlina uporyad 1')
else write('dlina uporyad 1',i)

я бы делал примерно так.