Курсовая работа: Анализ алгоритмов нечисленной обработки данных

for i:=1 to n do write(f1, A[i]:4);

close(f1);

{========dvoichnii poisk===========}

DvPoisk(n,a,x);

end.