Имеются описания:
type day = (yesterday, today, tomorrow);
vector = array [-1..1] of real;
var a: vector;
b: array [-3..3] of (x, y, z, w);
c: array ['a'..'z'] of vector;
d: array [day] of 0..23;

каково суммарное количество элементов в четырех массивах?
в ответ введите число.
пример ввода ответа: 12

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)

4 клетки вниз и 7 вправо                                                                                                                           

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

а)сумм(a5: b7)

б)срзнач(c4: c7)