Как поделить циферблат часов на три части, чтобы в каждой части суммы чисел были одинаковыми?

Ярешила так: нашла сумму всех чисел: 1+2+3+4+5+6+7+8+9+10+11+12=78 потом: 78: 3=26 нужно, чтобы каждая сумма этих чисел равнялась ! 11+12+1+2=26 дальше не получается то 25 то 27

Провести одну прямую от 2 к 11,вторую прямую от 4 к 9.прямую нужно проводить под цифрами.получится 3 части и в каждой части получится сумма 26.

Sub rab() dim a(10, 10) x0 = 6 h = 0.25 max = -1000 x = x0 for i = 1 to 10               for k = 1 to 10                               a(i, k) = cos(x ^ 0.25 - 0.5 * x ^ 0.5 + 0.25 * x ^ 0.75)                               if max < a(i, k) then                                                 max = a(i, k)                           im = i                             km = k                         end if                   x = x + h       next k next i ' вывод матрицы for i = 1 to 10               for k = 1 to 10                             cells(i, k) = int((0.0005 + a(i, k)) * 1000) / 1000  'округление а до 3 знака                 next k next i ' вывод обрезаной матрицы for i = 1 to 10               for k = 1 to 10                             if i = im then                             else                                           if k = km   then                     else                         cells(i + 12, k) = int((0.0005 + a(i, k)) * 1000) / 1000                     end if               end if           next k next i end sub

1.program z; var a: array [1..10] of integer; i,t: integer; s: real; begin for i: =1 to 10 do begin a[i]: =random(1,100); write(a[i]: 4); if (odd(i)) and (odd(a[i])) then begin s: =s+a[i]; t: =t+1; end; end; writeln; write('cреднее арифметическое = ',s/t); end. 2.program z; var a: array[1..10] of integer; max,i: integer; begin writeln('исходный массив'); for i: =1 to 10 do begin a[i]: =random(1,100); write(a[i]: 4); if a[i]> max then max: =a[i]; end; writeln; writeln('измененный массив'); for i: =1 to 10 do begin if not(odd(a[i])) then a[i]: =max; write(a[i]: 4); end; end.