Question

Дан массив.Упорядоченный по возрастанию и число b неравное ни одному из этих элементов.Найти элемент массива ближайший к b.

Answer 1

var a:array[1..10] of integer;
i,b,ind,el,min:integer;
begin
min:=1000000;
for i:=1 to 10 do
read(a[i]);
readln;
read(b);
for i:=1 to 10 do begin
if abs(a[i]-b)<min then begin
min:=abs(a[i]-b);
el:=a[i];
ind:=i;
end;
end;
write(el,' ',ind);   //Выводит элемент, а затем его индекс.
end.