Две верёвочки, каждая сгорает за минуту, горят неравномерно. получить а) 30 сек б) 15 сек

А) первую поджечь с двух сторон, сгорит за 30 б) вторую сложить буквой в и поджечь в середине. сгорит за 15.

  const   n = 15; var   a, b: array[1..n] of integer;   i, j, step, t: integer;   flag: boolean; begin   randomize;   writeln('исходные элементы массива');   for i : = 1 to n do   begin       a[i] : = random(10) - 5;       write(a[i]: 4)   end;   { сортируем массив (метод шелла) }   step : = n div 2;   while step > 0 do   begin       for j : = n - step downto 1 do       begin           i : = j;           while i < = n - step do           begin               if a[i] > a[i + step] then               begin                   t : = a[i]; a[i] : = a[i + step]; a[i + step] : = t               end;               i : = i + step           end       end;       step : = step div 2   end;   {   проходим по массиву и если элемент встречается более одного раза подряд,   переносим его в другой массив   }   j : = 0; t : = a[1]; flag : = false;   for i : = 2 to n do   begin       if (a[i] = t) and (not flag) then       begin           j : = j + 1; b[j] : = t; flag : = true       end       else begin flag : = false; t : = a[i] end   end;   writeln;   writeln('отобранные элементы массива');   for i : = 1 to j do write(b[i]: 4);   writeln end. тестовое решение: исходные элементы массива   -2    4    1  -3  -1  -2  -5  -1    2    4    1    3  -5  -2  -3 отобранные элементы массива   -5  -3  -2  -1    1    4

Const  n = 15; var  a, b: array[1..n] of integer;   i, j, step, t: integer;   flag: boolean; begin  randomize;   writeln('исходные элементы массива');   for i : = 1 to n do  begin      a[i] : = random(10) - 5;       write(a[i]: 4)  end;   { сортируем массив (метод шелла) }  step : = n div 2;   while step > 0 do   begin      for j : = n - step downto 1 do       begin          i : = j;           while i < = n - step do           begin              if a[i] > a[i + step] then              begin                  t : = a[i]; a[i] : = a[i + step]; a[i + step] : = t              end;               i : = i + step          end      end;       step : = step div 2  end;   {  проходим по массиву и если элемент встречается более одного раза подряд,  переносим его в другой массив  }  j : = 0; t : = a[1]; flag : = false;   for i : = 2 to n do  begin      if (a[i] = t) and (not flag) then      begin          j : = j + 1; b[j] : = t; flag : = true      end      else begin flag : = false; t : = a[i] end  end;   writeln;   writeln('отобранные элементы массива');   for i : = 1 to j do write(b[i]: 4);   writelnend.тестовое решение: исходные элементы массива  -2    4    1  -3  -1  -2  -5  -1    2    4    1    3  -5  -2  -3отобранные элементы массива  -5  -3  -2  -1    1    4