Из элементов массива с сформировать массив а той же размерности по правилу: элементы с 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