Упорядочивание массива Опции

[Tina]

Привет! Мне очень нужна помощь в решении следующей задачки. Если не трудно помогите!!..


Дано: const n = 40; var x: array[l..n] of integer; y, k: integer; t: boolean; переменной t присвоить значение true, если элементы массива x упорядоченны строго по вазростанию, и значение false иначе.

Сообщение отредактировано: Tina - 8.04.2007 16:13

[klem4]

Поищи в поиске по ключу : сортировка, метод пузырька. Потом просто сделаешь так : если во время сортировки было хоть одна перестановка то Т присвоишь false.

Зачем тут пузырек-то ?

i := 1;
while (i < n ) and (X[i] < X[i + 1]) do inc(i);
T := (i = n);