Question

99 баллов
Вводится последовательность из Nнатуральных чисел. Необходимо определить наименьшее натуральное число, отсутствующее в последовательности.
Формат входного файла
В первой строке указано число N, 0 Формат выходного файла
Вывести наименьшее число, отсутствующее в последовательности.
Пример

Answer 1

var
 i,n,k:integer;
 A: array of integer; // Динамический массив
 flag:boolean;
begin
 Assign(input,'input.txt');
 Assign(output,'output.txt');
 Reset(input); //input и output - зарезервированные слова в PascalABC
 Rewrite(output);
 Readln(n);
 SetLength(A,n+1);
 for i:=1 to n do
   read(A[i]);
 close(input);
 flag:=true;
 i:=1;
 while (flag and (i<n)) do
  begin
   inc(i);
   if (abs(A[i-1]-A[i])<>1)
    then begin
     flag:=false;
     k:=i;
    end;
  end;
 if not (flag)  then writeln(A[k-1]+1)
  else  if A[1]>1 then writeln(A[1]-1);
close(output);
end.

8d9c2706cff05e223838cb6cace6b507.txt

e6c59d2ec7aae413bab9c45bca4983c9.pas

99e310f462e069436e8530bec8bb3a18.txt

Answer 2

Ошибка времени выполнения: Файл 'C:inetpubwwwrootWDE PascalABC_NETUsers_DataUnRegUserspyzqldngk20psggapy2qfuhkinput.txt' не найден.

Answer 3

или это просто??

Answer 4

В директории с программой необходимо создать два файла - input.txt и output.txt

Answer 5

спасиибо

Answer 6

дождите не уходитеесть еще подобное задание