WTF is "бинарный поиск"?? О_о program one_thousand; uses crt; const n=1000; var a:array[1..n] of integer; c,g,i:integer; f:text; {-----------------------------------------------Запись в файл------------------------------------------------------} procedure writef(y:string); begin if y='1' then assign(f,'1000/unsort.txt') else assign(f,'1000/sort.txt'); rewrite(f); for i:=1 to n do writeln(f,a[i]); close(f); end; {-----------------------------------------------Запись в файл------------------------------------------------------} begin clrscr; {-----------------------------------------------Рэндомайз------------------------------------------------------} Writeln('Unsorted'); randomize; for i:=1 to n do begin a[i]:=random(n+1)-500; writeln(a[i],' '); end; writef('1'); {-----------------------------------------------Рэндомайз------------------------------------------------------} {-----------------------------------------------Сортировка------------------------------------------------------} for i:=1 to n do begin for g:=1 to n do begin if a[g]>a[i] then begin c:=a[i]; a[i]:=a[g]; a[g]:=c; end; end; end; writef('0'); writeln; writeln('Sorted'); for i:=1 to n do writeln(a[i]); {-----------------------------------------------Сортировка------------------------------------------------------} readkey; end. Это без поиска. ЗЫ Дааа, паскальщик я тот ещё...