Дистанционная подготовка: Ищу ошибку
Ищу ошибку
от Илья Гридасов - Пятница 7 Февраль 2014, 13:06
2. Приближенный двоичный поиск
  program pr1;
var
a,b,n,x,y,i,j,l,r,m:longint;
p,k:array [1..100000] of longint;
begin
read(n,m);
for i:=1 to n do read(p[i]);
for i:=1 to m do read(k[i]);
for i:=1 to m do begin x:=n; y:=1;
while (x-y>1) do if abs(k[i]-p[y])
Re: Ищу ошибку
от Peter Cherepanov - Суббота 8 Февраль 2014, 00:39
  Ошибка первая: программа была отдана на растерзание авто-форматировщику и стала нечитаемой.

Отредактируйте свое сообщение и сохраните его в текстовом формате.