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

[lina_i]

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

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

 

[Vladimir_S]

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

Ладно, так и быть, 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.

 

[lina_i]

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