массивы Опции

[Sir-j]

как решить задачу, выгледит в общем?
Дано вещественное число R и массив размера N. Найти элемент массива, который наиболее1|наименее2 близок к данному числу.
в смысле близок к данному числу!

[volvo]

Все, тема закрыта (совершенное нежелание автора темы думать самостоятельно)

Найди на досуге, сколько отличий есть от кода, на который я давал ссылку.

const
 n = 10;

 { Это - твой массив }
 a: array[1 .. n] of integer =
   (2, 5, 3, 8, 6, 9, 1, 13, 10, 22);

var
 r, min: real;
 i, index: integer;

begin
 r := 9.3;
 min := maxInt;
 for i := 1 to n do
   if min > abs(a[i] - r) then
     begin
       min := abs(a[i] - r); index := i
     end;

 writeln('closest = a[', index, '] = ', a[index]:4);
end.

Наименее близкое число найдешь сам... Все.