Задана последовательность из N вещественных чисел. Определить
порядковый номер того из них, которое ближе всего к заданному
числу.
Количество чисел в массиве и максимальное число в массиве нужно задать через write или writeln
Задана последовательность из N вещественных чисел. Определить порядковый номер....
for i:= 1 to N do
if (abs(A-x) < abs(A[imin]-x) then imin:=i
if (abs(A-x) < abs(A[imin]-x) then imin:=i
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.