Задачка на массив Опции

[kent]

Есть такая задача:
Дано вещественное число R и массив размера N. Найти два элемента массива, сумма которых наиболее|наименее близка к данному числу.
Подскажите как решать, а то я даже не знаю как начать...

Сообщение отредактировано: kent - 12.07.2005 18:37

[Romtek]

Выход за пределы нужно всегда проверять!
смотрим код:

     repeat

         k:=k+1;
         for i:=1 to m do begin
            if (i>1) then begin
              write (k:4); { вставил здесь для отладки, потому что был выход за пределы. Индекс K был 1001 ...}

              id_1[k]:=a[i-1];
              id_2[k]:=a[i];
            end;
         end;

Т.е. нужно добавить проверку (K<=1000)

Далее...

while a[i]=N-m+i do dec(i);

Где проверка (i > 1) ?
Должно быть так:

while (i>1) and (a[i]=N-m+i) do dec(i);

[kent]

Romtek, поставил проверку как ты сказал, вроде больше этот знак не вылезает...
Спасибо что поправил!