Дистанционная подготовка: Не проходит 4 тест. PascalABC
Не проходит 4 тест. PascalABC
от Равиль Султанов - Вторник 6 Сентябрь 2016, 16:03
2. Приближенный двоичный поиск
  program ka;
var n, k, s, i, u, d: longint;
nm: array [1..100000] of longint;
km: array [1..100000] of longint;
f: text;
begin
assign(f, 'input.txt');
reset(f);
readln(f, n, k);
for i:=1 to n do read(f, nm[i]);
for i:=1 to k do read(f, km[i]);
close(f);
assign(f, 'output.txt');
rewrite(f);
for i:=1 to k do begin
u:=n;
d:=1;
while (ud) do begin
if abs(km[i]-nm[d])