При совершении сделки купец получил 12 одинаковых по виду золотых монет. ему стало известно, что одна из монет фальшивая и отличается от настоящей монеты только весом. для определения фальшивой монеты он пронумеровал монеты числами от 1 до 12 и провел три взвешивания на рычажных весах. обозначив через vi – вес монеты с номером i, он записал результаты взвешиваний следующим образом: v1 + v2 + v7 + v8< v3 + v4 + v5 + v6; v1 + v2 + v5 + v9> v7 + v8 + v10 + v11; v1 + v6 + v7 + v12> v4 + v8 + v9+ v10. найдите фальшивую монету.

V1 - только это монета встречается во всех взвешиваниях. 

Program jnrvjf; vara: array[0..20] of integer; x, b, i, d, c: integer; begin      writeln('введите число элементов в массиве');       readln(d);       writeln('введите число'); ;       readln(x);       b: =0;       for i: = 1 to d do              a[i] : = random (20);       writeln(a);       for i: = 1 to d do      begin              c: = a[i];               if (c > b) then                      b: =a[i]      end;       writeln('максимальное значение в множестве: ', b);       for i: =0 to d do       begin              b: =a[i];               if b = x then                      writeln ('номера элементов, с x: ', i)// это если вести человеческую нумерацию, где первый элемент имеет номер 1.      end; end.

Program llllll; var a: array [0..10] of integer; n, i, b : integer; begin       writeln('введите количество чисел');       readln(n);       b: =0;       for i : = 1 to n do               a[i] : = random(10);       b: =0;       for i : = 1 to n do       begin               if a[i] mod 2 = 0 then                       b: =b+a[i];       end;       writeln('это сумма ' , b);       writeln(a); end.