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

Question

Информатика

Настасьюшка

25 сентября, 09:19

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

+3

Ответы (1)

Знаете ответ на вопрос?

Матильда · 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:=abs (a[i]-b) ;

el:=a[i];

ind:=i;

end;

end;

write (el,' ', ind) ; / / Выводит элемент, а затем его индекс.

end.