Определите максимально возможную сумму всех чисел в третьей группе.

Решение по шагам

1. 1

   Как рассуждать

   Решение. Последовательно считывая данные из файла, будем прибавлять к первой сумме (переменная sumAns) максимальное число в тройке, к третьей сумме (переменная sum3) минимальное число в тройке, а ко второй сумме (переменная sum2) оставшееся число в тройке. Также в переменную minDif будем записывать значение минимальной нечётной разницы между между числами, накапливаемыми в первой сумме, и одним из чисел, накапливаемых в других суммах. Таким образом, если в переменных sum2 и sum3 по окончании работы программы одновременно будут два нечётных числа или два чётных числа, будем отнимать от искомой суммы значение переменной minDif. Приведём решение задачи на языке Pascal.var x, y, z: integer;n: integer;sumAns, sum2, sum3: integer;minDif: integer;f: text;begin assign(f,'C:\27-B.txt'); reset(f); readln(f, n); sumAns := 0; sum2 := 0; sum3 := 0; minDif := 20001; while not eof(f) do begin readln(f, x, y, z); if (x >= y) and (x >= z) then begin sumAns := sumAns + x; if (y >= z) then begin sum2 := sum2 + y; sum3 := sum3 + z; end else begin sum3 := sum3 + y; sum2 := sum2 + z; end; if (((abs(x - y)) mod 2 <>