Технический форум - Помогите написать программу в Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Помогите написать программу в Паскале

найти произведение двух соседних элементов одномерного массива, наиболее приближенных к числу К.
ДСЧ от -50 до +50. N=10.
плиз очень важно!!!

Цитата:

Сообщение от lina_i (Сообщение 506863)

Ладно, так и быть, gомогу:

Код:

const

 n=10;

var

 a:array[1..n]of integer;

 i,j,k,t,d,d1,d2:integer;

begin

 Write('k= ');

 ReadLn(k);

 WriteLn;

 randomize;

 for i:=1 to n do

  begin

   a[i]:=50-random(101);

   write(a[i]:4);

  end;

 writeln;

 writeln;

 d:=220;

 for i:=1 to n-1 do

  begin

   d1:=Abs(a[i]-k);

   d2:=Abs(a[i+1]-k);

   If (d1+d2)<d then

    begin

     j:=i;

     d:=d1+d2;

    end;

  end;

 writeln(a[j]:4,a[j+1]:4,a[j]*a[j+1]:8);

 readln;

end.

ухты пасиб)) а какие К вводить?? пишет ар.переполнение