Найдите радиус окружности, вписанной в треугольник, стороны которого равны 16см, 17см и 17 см.

Р= 50 см
s =120(кв.см)
r =2s/p
r=240/50 =4.8 (cм)

95-70=25 на 2 участке 25 кустов больше чем на 1.Из условия с этих кустов сняли 50 кг.Отсюда следует,что с одного куста сняли
50:25=2 кг помидор с 1 куста
Тогда 
2*70=140 кг с 1 участка
2*95=190 кг со 2 участка
ответ 1 участок 140 кг,  2 участок 190 кг.
Можно изменить так
На одном участке росло 70 кустов,на втором участке на 25 больше.С 1 участка собрали 140 кг,а со второго на 50 кг больше.Сколько кг собрали с каждого куста на каждом участке.
Решение
70+25=95 кустов на 2 участке
140+50=190 кг собрали со 2 участка
140:70=2 кг с 1 куста первого участка
190:95=2 кг с 1 куста со второго участка.

Код
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System;
const
    n = 2014;

begin
   
    var a := ArrGen(n, i -> i * Power(-1, i), 1);
    Println(a);
   
    var max := a.Sum();
    for var i := 1 to n - 1 do
        for var j := i + 1 to n do
        begin
            var b := Arr(a);
           
            for var k := b.Low to b.High do
            begin
                if abs(b[k]) = i then
                    b[k] := sign(b[k]) * j
                else if abs(b[k]) = j then
                    b[k] := sign(b[k]) * i;
            end;
           
            var sum := b.Sum();
            if (max < sum) and (sum > 2000) then begin
                Println(i, j, sum);
                Println(b);
                max := sum;
            end;
        end;
    Println(max);
end.

ответ
Обмен (2; 2013)
Сумма = 5029