Определить номера двух симметричных элементов массива

var
  c: array[1..10000] of integer;
  a, b, n, i, max, max1, max2, p, k, v, m: integer;
 
begin
  randomize;
  max := -10000;
  Readln(a, b, n);
  for i := 1 to n do 
  begin
    c[i] := random(b - a + 1) + a; Write(c[i], ' '); 
  end;
  if ((n mod 2) = 0) then k := n div 2 else k := n div 2;
  for p := 1 to k do 
  begin
    m := c[p] + c[n - p + 1];
    if ((m mod 2) = 0) and (m >= max) then 
    begin
      max := m; max1 := p; max2 := n - p + 1; inc(v); 
    end; 
  end;
  Writeln(' ');
  if (v = 0) then 
    Writeln(0, ' ', 0)
  else
    Writeln(max1, ' ', max2);
end.

var
  a,b,i,n,il,ir:integer;
  ar:array of integer;
begin
  repeat
    write('A,B,N=');
    readln(a,b,n);
  until (n in [1..10000]) and (a<b);
  setlength(ar,n+1);
  for i:=1 to n do begin
    repeat
      if abs(a)>abs(b) then 
        ar[i]:=sign(a)*random(abs(a))+1 
      else 
        ar[i]:=sign(b)*random(abs(b))+1;
    until (ar[i] in [a..b]);  
    write(ar[i],'  ');
  end;
  writeln;
  il:=0;ir:=0;
  for i:=1 to n div 2 do 
    if (abs(ar[il]+ar[ir])<=abs(ar[i]+ar[1+n-i])) and  (not odd (ar[i]+ar[1+n-i])) and (ar[i]+ar[1+n-i]<>0) then 
      begin 
         il:=i;
         ir:=1+n-i;
     end;
  writeln(il,'  ',ir);
end.

var
  a,b,i,n,il,ir:integer;
  ar:array[1..10000] of integer;
function sign(x:real):integer;
begin
  if x>0 then sign:=1 else if x<0 then sign:=-1 else sign:=0;
end;
begin
  randomize;
  repeat
    write('A,B,N=');
    readln(a,b,n);
  until (n >=1) and (n<=10000) and (a<b);
  for i:=1 to n do begin
    repeat
      if abs(a)>abs(b) then ar[i]:=sign(a)*random(abs(a))+1
      else ar[i]:=sign(b)*random(abs(b))+1;
    until (ar[i]>=a) and (ar[i]<=b);
    write(ar[i],'  ');
  end;
  writeln;
  il:=0;ir:=0;
  for i:=1 to n div 2 do 
    if (abs(ar[il]+ar[ir])<=abs(ar[i]+ar[1+n-i])) and  (not odd (ar[i]+ar[1+n-i])) and (ar[i]+ar[1+n-i]<>0) then 
      begin 
         il:=i;
         ir:=1+n-i;
     end;
  writeln(il,'  ',ir);
end.

ar:array[0..10000] of integer;