Из элементов массива с сформировать массив а той же размерности по правилу: элементы с 3-го по 12-й - ai=-ci^2, все остальные - аi=ci-1. 1)заменить максимальный элемент на противоположный по знаку. 2)заменить нулями элементы между минимальным и максимальным, кроме них самих. два пункта должны быть реализованы в одном коде, не код нужен на pascal(паскале)

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Укажите n>11:');
  var c:=ArrRandom(n,-50,50); c.Println;
  var a:=new integer[n];
  for var i:=0 to n-1 do
    if i.Between(2,11) then a[i]:=Sqr(c[i]) else a[i]:=c[i]-1;
  a.Println;
  var imax:=a.IndexMax;
  a[imax]:=-a[imax];
  Writeln('Максимальный элемент заменен на ',a[imax]);
  var imin:integer;
  (imin,imax):=(a.IndexMin,a.IndexMax);
  if imin>imax then Swap(imin,imax);
  for var i:=imin+1 to imax-1 do a[i]:=0;
  a.Println
end.

Пример
Укажите n>11: 15
-47 11 -42 23 29 12 3 -24 -20 11 -4 38 42 -26 -28
-48 10 1764 529 841 144 9 576 400 121 16 1444 41 -27 -29
Максимальный элемент заменен на -1764
-48 10 -1764 0 0 0 0 0 0 0 0 1444 41 -27 -29

Var
  i,z:integer;
  a:array[1..2,1..3]of integer;
  begin
for i:=1 to 2 do
  begin
  write('Введите числитель и знаменатель дроби (через пробел): ');
  readln(a[1,i],a[2,i]);
  end;
a[2,3]:=a[2,1]*a[2,2]; 
a[1,3]:=a[1,1]*a[2,2]+a[1,2]*a[2,1];
z:=a[1,3] div a[2,3];
a[1,3]:=a[1,3] mod a[2,3];
i:=a[2,3];
while i>1 do
   begin
   if (a[2,3] mod i=0) and (a[1,3] mod i=0) then
     begin
     a[2,3]:=a[2,3] div i;
     a[1,3]:=a[1,3]div i;
     i:=a[2,3];
     end
     else i:=i-1;
   end;
write(a[1,1],'/',a[2,1],'+',a[1,2],'/',a[2,2],'=');
if z>0 then write(z);
if a[1,3]>0 then writeln('(целая часть) ',a[1,3],'/',a[2,3],'(дробная часть)')
end.

Выполняя алгоритм, получаем следующий результат (15 итераций)

1. 0..65534 -> 32767
2. 0..32766 -> 16383
3. 0..16382 -> 8191
4. 0..8190  -> 4095
5. 0..4094  -> 2047
6. 2048..4094 -> 3071
7. 2048..3070 -> 2559
8. 2560..3070 -> 2815
9. 2816..3070 -> 2943
10. 2944..3070 -> 3007
11. 2944..3006 -> 2975
12. 2976..3006 -> 2991
13. 2992..3006 -> 2999
14. 3000..3006 -> 3003
15. 3000..3002 -> 3001

Если лень перебирать вручную, можно воспользоваться программой

var k,l,r,x,f:integer;
begin
f := 3001;
l := 0;
r := 65534;
x := (l + r) div 2;
k := 1;
while (x <> f) and (l < r) do
  begin
  writeln(k,' ',l,' ',r,' ',x);
  k := k + 1;
  if f < x then r := x - 1
    else l := x + 1;
  x := (l + r) div 2
  end;
writeln(k,' ',l,' ',r,' ',x);
end.