1.в двумерном массиве действительных чисел найти произведение отрицательных элементов больших -14; 2.заменить к-й элемент одномерного массива на произведение всех его элементов кратных 5

Везде, начиная с того что даже f написана не верно вот рабочий код. формулы брались на вики, потому что в ваших я сомневаюсь весьма function f(x: real): real; begin       f : = sqr(sqr(x)) * x + 3 * sin(x) - 3 * sqr(x) - 12; end; function findroot(a, b, epsilon: real): real; begin       while(abs(b - a) > epsilon) do       begin               a : = b - (b - a) * f(b) / (f(b) - f(a));               b : = a + (a - b) * f(a) / (f(a) - f(b));               writeln(a, ' ', b);       end;             findroot : = b; end; begin       writeln('x = ', findroot(0.5, 1.5, 0.001)); end.

Пусть a, b, c − число пассажиров каждой из маршруток. тогда, нужно во-первых: выяснить можно ли поделить пассажиров поровну между тремя маршрутками; во-вторых: если первое утверждение верно, то k : = (a + b + c) div 3; − число пассажиров, которое должно приходиться на 1 маршрутку sum : = 0; − счётчик пересаживаемых пассажиров da : = a - k; if da > 0 then sum : = sum + da; db : = b - k; if db > 0 then sum : = sum + db; dc : = c - k; if dc > 0 then sum : = sum + dc; − если разница числа пассажиров и количества, которое должно быть в маршрутке, число положительное, значит столько пассажиров из данной маршрутки необходимо пересадить. что то типа дальше сама