uses crt;
var a:array[1..1000000] of longint;
        n,i,max,min,s,j:longint;
begin
        clrscr;
        write('Nhap so luong phan tu: '); readln(n);
        for i:=1 to n do
                        begin
                                write('Nhap gia tri phan tu thu ',i,': '); readln(a[i]);
                        end;
        for j:=1 to n do
        max:=a[1];min:=a[1];
        for i:=2 to n do
                begin
                        if a[i]>max then max:=a[i];
                        if a[i]<min then min:=a[i];
                end;
        writeln('Max: ',max);
        writeln('Min: ',min);
        for j:=min+2 to max-2 do if j<>a[i] then inc(s,j);
        writeln('Tong cac so thuoc doan [min,max] (khong xuat hien trong mang): ',s);
        readln;
end.

uses crt;
var n,i,min,max,s,s1:longint; a:array[1..100000]of longint;
begin
clrscr;
   write('n=');readln(n);
   min:=high(longint);
   max:=low(longint);
   for i:=1 to n do 
      begin 
         write('a[',i,']=');readln(a[i]);
         if a[i]<min then min:=a[i]; 
         if a[i]>max then max:=a[i];
         inc(s1,a[i]);
      end; 
   for i:=min to max do inc(s,i);
   writeln('Tong cac so nguyen thuac doan [min,max]: ',s-s1);
readln
end.