Написать функцию булевского(целого) типа, определяющую упорядоченность массива целых чисел

[Вадим Мошев]

от 50 до 100 рублей на счёт мобильного телефона

[TinMan]

Сломаю-ка я тебе сейл, уважаемый Вадим Мошев.. ))
Не, полностью не буду писать. Только хлавное.

function Ordered(a: array of integer; n: integer): boolean;
var
  u,d: boolean;
begin
  u:= true;
  d:= true;
  while (u or d) and (n>1) do begin
    if a[n-1]<a[n] then d:= false else if a[n-1]>a[n] then u:= false;
    Dec(n)   // добавлено после поста Serge_Bliznykov
  end;
  Ordered:= u or d
end;

Упс! Кажется, все написал.. во, блин! я нечаянно.. ((

Добавлено:
Да, я снова забыл уменьшать n.. ((
спасибо!
сколько уже? +3?.. ))

[Alex11223]

Ага. Сидит Вадим Мошеев до 4 часов ночи и продает автору эту программу)

[Serge_Bliznykov]

TinMan, по ночам спать надо, а не программы писать..

я данный Вами код не проверял, но что-то мне подсказывает, что цикл:
1) может быть бесконечным
2) не перебирает все элементы массива!

[Вадим Мошев]

Это, видимо, автору так надо было, что он даже не согласился купить эту программу за 50 рублей.
Утро уже наступило и прошло (во всяком случае в том месте, где я живу).
Я сам заколебался ждать, когда же мне уважаемый ТС отпишется, так и хотел ему сказать, что ещё немного - и я уйду. Автор опоздал. Ему доброе утро.

TinMan

Сломаю-ка я тебе сейл, уважаемый Вадим Мошев.. ))

Ломай, уже не жалко.

Alex11223

Ага. Сидит Вадим Мошеев до 4 часов ночи и продает автору эту программу)

Не... я просто решил прервать данный цикл...
как показала практика - не зря...

Блин... Уважаемые Serge_Bliznykov, Alex11223 и TinMan
Никому случайно не нужна такая программа? Всего за 50 РЭ сделаю...

[TinMan]

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

TinMan, по ночам спать надо, а не программы писать..

да ложусь, ложусь... ))

я данный Вами код не проверял, но что-то мне подсказывает, что цикл:
1) может быть бесконечным

Верно, моя обычная ошибка.. Исправил. Спасибо!

2) не перебирает все элементы массива!

А все надо только в том случае, когда он упорядоченный. Если нет - можно выходить сразу, как поймем.

[QUOTE]Блин... Уважаемые Serge_Bliznykov, Alex11223 и TinMan
Никому случайно не нужна такая программа? Всего за 50 РЭ сделаю.../QUOTE]... хм... а за 30? )) поторгуемся?

[Вадим Мошев]

[QUOTE]

Блин... Уважаемые Serge_Bliznykov, Alex11223 и TinMan
Никому случайно не нужна такая программа? Всего за 50 РЭ сделаю.../QUOTE]... хм... а за 30? )) поторгуемся?

Ну, тогда в долларах