В ячейке В4 находится формула MAKC(A1:B3). Как изменится формула и куда переместится при удалении строки 2? Формула не изменится и останется в ячейке В4 Формула будет иметь вид MAKC(A2:B3) в ячейке ВЗ Формула будет иметь вид МАКС(А2:ВЗ) в ячейке B4 Формула будет иметь вид MAKC(A1:B2) в ячейке ВЗ Формула будет иметь вид MAKC(A1:B2) в ячейке В4

Procedure sovp;
var
  i, j, r, c: byte;
  ar: array[1..10, 1..10]of byte;
  s: array[1..4] of string;
  b: boolean;
label l1;
 begin
  r := random(2, 3);
  l1:
  c := 1;
  b := false;
  for i := 1 to 10 do
    for j := 1 to 10 do
    begin
    ar[i, j] := random(0, 1);
    if(i < 5) then s[i] := '';
    end;
     for i := 1 to 9 do
      begin
       for j := 1 to 10 do
       begin
        if(ar[i, j] <> ar[i + 1, j]) then b := true;
       end;
      if(b = false) then
     begin
      s[c] := i + ' строка совпалает с ' + (i + 1) + ' строкой';
      c := c + 1;
     end;
    b := false;
  end;
 if(c <> r) then goto l1
  else
  begin
    for var k := 1 to c do if(k<>c)then writeln(s[k]);
    for i := 1 to 10 do
    begin
      for j := 1 to 10 do write(ar[i, j], ' ');
        writeln;
    end;
  end;
   end;
 begin
  sovp;
end. 

На каждом шаге имеет смысл менять два горшка с разными цветами. Поэтому всё получится, если роз, стоящих на чётных местах, будет столько же, сколько и фиалок на нечётных. При этом если тех и других k, то всего нужно k перестановок.
Код (PascalABC.NET 3.2):
begin
  var n := ReadInteger();
  var roses := new integer[n];
  var count_roses := 0;
  var violets := new integer[n];
  var count_violets := 0;
  for var i := 1 to n do
  begin
    if ReadInteger() = i mod 2 then
      if i mod 2 = 0 then
      begin
        roses[count_roses] := i;
        inc(count_roses);
      end
      else
      begin
        violets[count_violets] := i;
        inc(count_violets);
      end;
  end;
  if count_roses = count_violets then
  begin
    writeln(count_roses);
    for var i := 0 to count_roses - 1 do
      println(roses[i], violets[i]);
  end
  else
    write(-1)
end.