Задан целочисленный вектор X размерностью n

[Игорь Обухов]

Проверить, образуют ли его элементы перестановку начального отрезка последовательности натуральных чисел. Рекомендации: в перестановку натуральных чисел от 1 до n все значения из этого диапазона входят по одному разу..Заранее спасибо

[Serge_Bliznykov]

Так задачка, по сути, очень простая, и может быть решена кучей способов (разной степени эффективности кода и простоты реализации).

например, так:

k:=1;
for i:=1 to N do begin
   k:=1;
   while (k<=N) and (X[k]<>i) do Inc(k);
   if K>N then Break; {всё. приехали, значение i в векторе X не найдено, 
                                 значит, это не перестановка!}
end;
if K>N 
  then WriteLn('NO! Элементы вектора X не образуют перестановку!')
  else WriteLn('Yes! Элементы вектора X не образуют перестановку чисел от 1 до ',N);

[Игорь Обухов]

а начало программы можете написать?

[Serge_Bliznykov]

что, всё настолько плохо??!! ;(

const N = 10;
var X : array[1..N] of integer;
 i, k : integer;
begin
  WriteLn('Введите ',N,' элементов вектора X :');
  for i:=1 to N do Read(X[i]);
  Readln;
....

[Игорь Обухов]

спасибо большое