Регистрация
Lbailieva
21.09.2022 12:22
Информатика
Есть ответ 👍

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

137
169
Посмотреть ответы 2

Ответы на вопрос:

gabidullina200p00tmn
gabidullina200p00tmn
4,5(24 оценок)
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.
azharabikenova
azharabikenova
4,8(64 оценок)

009 00102002010101020020101020201001011

Популярно: Информатика