Question

Найдите потерянное число. вам даны все целые число от 1 до n+1, кроме одного. найдите отсутствующее число. формат входных данных: в первой строке входных данных записано целое число n (1< =n< =100,000). во второй строке через пробел даны n целых чисел в диапазоне от 1 до n+1.

Answer 1

//PascalABC.Net 3.1.0.1200
var
    f: TextFile;

begin
    if not FileExists('input.txt') then Exit;
    
    Reset(f, 'input.txt');
    var n := ReadlnInteger(f);
    var a := ArrFill(n + 1, 0);
    for var i := 1 to n do
        a[i - 1] := ReadInteger(f);
    a[n] := n + 2;
    
    println(a);
    a.Sort;
    println(a);
    
    for var i := 1 to n + 1 do
        if a[i - 1] <> i then begin
            writeln(i);
            break;
        end;
end.