Задача по одномерному массиву, сделать с процедурами

[deu4er]

Дан целочисленный массив размера N. Если он является перестановкой, то есть содержит все числа от 1 до N, то вывести 0, в противном случае вывести номер первого недопустимого элемента.

[Slicker]

на каком языке?

[deu4er]

на паскале

процедуры не понимаю( не могу её сделать

[eoln]

Смысл процедуры проверки в том, что недолжно быть одинаковых чисел и чисел вне диапазона [1..n].

const
  n = 6;
var
  mas: array[1..n] of word;
  i, j, d: word;
procedure proverka(var k: word);
begin
  for i := 1 to n do
  if (mas[i] < 1) or (mas[i] > n) then
  begin
    k := i;
    break
  end else
  for j := i + 1 to n do
  if (mas[i] = mas[j]) or (mas[j] < 1) or (mas[j] > n) then
  begin
    k := j;
    exit
  end;
end;
begin
  for i := 1 to n do
  begin
    write('el ', i, ' = ');
    readln(mas[i])
  end;
  proverka(d);
  writeln(d);
  readln
end.

[Serge_Bliznykov]

ну, в задании про процедуру ни слова ни сказано.. это, во-первых.
А во-вторых, задание не совсем некорректно поставлено - я предполагаю, что в задании должно быть оговорено, что все элементы массива являются числами от 1 до N
иначе, "вывести номер первого недопустимого элемента." будет невозможно!

хотя, можно отсортировать массив и в цикле проверять, как только следущий элемент массива не равен предыдущий элемент + 1 - то выдавать этот элемент, как неправильный. Если дошли до конца - то значит массив получен перестановкой...

и последнее, использовать процедуры функции очень легко, например:

const N = 5; {размер массива}
type MyArray = array[1..N] of integer; {описываем свой тип массива}

function IsCombinationArray( A : MyArray) : integer;
var i,j : integer;
begin
  ... проверяем ...
  если "неправильный" нашли:
    IsCombinationArray := A[i]
  иначе
    IsCombinationArray := 0;
end; {конец функции}

{основная программа}
var Massiv : MyArray;
  i, j : integer;

begin 
  Randomize;
  {заполняем массив случайными числами
    это просто для примера.
   вообще лучше запрашивать оператора вводить элементы массива - т.к. 
   в случае случайного заполнения вероятность того, что все цифры 
будут разные практически нулевая. 
т.е. всегда будем получать, что массив не получен перестановкой!}
  for i:=1 to N do Massiv[i] := Random(N)+1;

  WriteLn( IsCombinationArray(Massiv) );
end.

[Serge_Bliznykov]

eoln, сорри!!
ну вот... опять я опоздал...
хоть на работу не отвлекайся ;-)))

[deu4er]

огромное спасибо