А проблема то в чем? Совсем ничего не получается? Итак, как определить возрастающая ли последовательность или нет. Начинаем смотреть каждую цифру по порядку. Просто пишем на листочке эти цифры и внимательно смотрим и придумываем алгоритм.
1 5 6 7 9
Это возрастающая последовательность. Почему? Да потомучто каждая последующая цифра больше предыдущей.
Итак, мы начинаем цикл (смотрим каждую цифру), а перед ним предполагаем (что-то вроде метода от противного), что последовательность дествительно возрастающая (флаг = true). И пытаемся доказать обратное, т.е. найти такое число которое меньше предыдущего. В случае если нашли число меньше предыдущего, делаем флаг = false.
После цикла флаг будет являться ответом - возрастающая последовательность или нет.
Code
flag := true;
For i:=1 to N do
begin
// если предыдущий элемент больше последующего
if mas[i-1]>mas[i] then
flag:=false;
end;
N - количество элементов массива
mas - массив (или список) цифр
В итоге если flag = true то последовательность возрастающая, иначе нет. Код писал прямо тут.
Также и с буквами. Например, можно сравнить число с буквой
Code
if 'a'>'5' then showmessage('Сообщение');
Сообщение появится, так как a>5 (сравниваются ASCII кода символов).
Дальше сам, если что не понятно спрашивай, только конкретнее вопрос задавай, и говори что ты сделал, чтобы было проще объяснить.
