Задача на массив Опции

[Konstantin]

Добрый день. Задача звучит примерно так:
Дан массив целых чисел от 1 до N, заполненный всеми числами от 1 до N (не упорядоченно).
Проверить, все ли числа в массиве есть от 1 до N, если все- вывести 0, если нет - вывести элемент массива, на котором сбивается последовательность.
Тобишь 5 4 1 3 2 - должно вывести 0, а кпримеру 5 1 3 6 2 уже не подходит, нету четвёрки.
Из идей было отсортировать массив процедурой Sort, но в Pascal ABC она почему-то не работает. А так бы здорово получилось - сортируем элементы по возрастанию, и проверям в цикле

Код

for i:=1 to N do
if(a[i]-a[i+1]<>1) then writeln('Последовательность чисел сбивается на элементе', a[i]);

у кого есть ещё какие-нибудь идеи?

Сообщение отредактировано: Konstantin - 15.10.2009 1:25