Дан список из чисел 12, 34, 8, 15,9, 26. выведите на экран числа а) меньше числа n
b) первое число больше b
в) сумма всех чисел больше числа n​

1+2+3+4+5+6+7+8+9+10+11+12=78

78: 2=39

делим так, чтобы в обеих частях сумма чисел была 39. для этого линия раздела должна проходить между 3 и 4, а также между 9 и 10. в одной половине 10+11+12+1+2+3=39 и в другой 4+5+6+7+8+9=39

разложим 78 на простые множители:

78 | 2

39 | 3

13 | 13

  1

так как на циферблате всего 12 чисел, получаем, что его ещё можно разделить на 3 и на 6 частей, чтобы суммы чисел в частях были равны:

78: 3=26 (11+12+1+2=26, 9+10+3+4=26, 5+6+7+8=26)

78: 6=13 (12+1=13, 11+2=13,10+3=13, 9+4=13, 8+5=13, 7+6=13)

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

майор - артиллерист капитан - летчик лейтенант - связист старшина - минометчик сержант - сапер ефрейтор - танкист