Люди добрые, помогите написать код

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

неужели так трудно выручить???

слушай дружище, просто посмотри я на правельном пути?
function up(a:array of integer; n:integer):boolean;
var i:integer;
b1,b2:boolean;
begin b1:=true;
b2:=true;
for i:=0 to n-2 do
begin if a[ i] < a[ i+1] then b1:=false;
if a[ i] > a[ i+1] then b2:=false;
up:=b1 or b2
end;

Anando
я же тебе говорю, если передавать отфонарный массив, то фиг поймёшь как он отсортирован. потому что он не сортирован вовсе.

задача подразумевает, что функции передаётся отсортироанный массив. и поэтому сводится к сравнению первого и последнего элементов. если a0>an, то массив отсортирован в порядке убывания, иначе - в порядке возрастания.

Добавлено 22.09.11, 19:24
Anando
скоренько записывай решение ) а то тут пошла жосткая конкурентная борьба с использованием админресурса ))

Demon_id, твое решение никто не резал

Сообщение отредактировано: Riply - 22.09.11, 19:26

Готов выполнить за денежное вознаграждение.

Моё объявление и отзывы