... writeln(f,a[min]); close(f); End; Procedure Xuli; Var i,j,dem,bac,x,y:word; Begin fillchar(a,sizeof(a),0); for i:=1 to n do t^[i]:=1; dem:=0; while dem<n-2 do begin for i:=1 to n-1 do begin x:=d^[i]; ... a[cs[i]]-b[cs[i]]<mid do inc(i); while a[cs[j]]-b[cs[j]]>mid do dec(i); if i<=j then begin tg:=cs[i]; cs[i]:=cs[j]; cs[j]:=tg; inc(i); dec(j); end; until i>j; if l<j then Qsort(l,j); if i<r ... thừa thiên huế Tr ờng thpt tam giang Kỳ thi chọn hsg thpt năm 2006 - 2007 đề thi môn: tin học lớp 12 (Thời gian: 150 phút, không kể thời gian giao đề) thí sinh lập trình bằng pascal giải hai bài...