Cho dãy A gồm N số nguyên(a1,a2..an). Viết chương trình in ra màn hình dãy A được sắp xếp và các số không xuất hiện trong dãy A từ phần tử nhỏ nhất đến phần tử lớn nhất Ví dụ Input 5 1 3 4 9 6 Output 1 3 4 6 9 2 5 7 8

uses crt;
var a:array[1..1000]of longint;
    n,i,j,tam:longint;
begin
   clrscr;
   readln(n);
   for i:=1 to n do readln(a[i]);
   for i:=1 to n-1 Do
   for j:=i+1 to n Do
   if a[i]>a[j] then
   begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam;
   end;
   for i:=1 to n do write(a[i],' ');
   writeln;
   for i:=1 to n Do 
    for j:=a[i] to a[i+1] do
     if (j<>a[i])and(j<>a[i+1]) then write(j,' ');
readln
end.

uses crt;
var i,j,n,t:longint;
a:array[1..1000000]of longint;
begin
clrscr;
   readln(n);
   for i:=1 to n do read(a[i]);
   for i:=1 to n do  
      for j:=1 to i do 
         if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
   for i:=1 to n do write(a[i],' '); writeln;
   for i:=1 to n-1 do 
      for j:=a[i]+1 to a[i+1]-1 do write(j,' ');
readln; readln;
end.