Питон 17 !
за билетами на премьеру нового мюзикла выстроилась очередь из n человек, каждый из которых хочет купить 1 билет. на всю очередь работала только одна касса, поэтому продажа билетов шла медленно, приводя «постояльцев» очереди в отчаяние. самые сообразительные быстро заметили, что, как правило, несколько билетов в одни руки кассир продаёт быстрее, чем когда эти же билеты по одному. поэтому они предложили нескольким подряд стоящим людям отдавать деньги первому из них, чтобы он купил билеты на всех.
однако для борьбы со спекулянтами кассир продавала не более 3-х билетов в одни руки, поэтому договориться таким образом между собой могли лишь 2 или 3 подряд стоящих человека.
известно, что на продажу i-му человеку из очереди одного билета кассир тратит ai секунд, на продажу двух билетов — bi секунд, трех билетов — ci секунд. напишите программу, которая подсчитает минимальное время, за которое могли быть обслужены все покупатели.
обратите внимание, что билеты на группу объединившихся людей всегда покупает первый из них. также никто в целях ускорения не покупает лишних билетов (то есть билетов, которые никому не нужны).
входные данные
на вход программы поступает сначала число n — количество покупателей в очереди (1≤n≤5000). далее идет n троек натуральных чисел ai, bi, ci. каждое из этих чисел не превышает 3600. люди в очереди нумеруются, начиная от кассы.
выходные данные
требуется вывести одно число — минимальное время в секундах, за которое могли быть обслужены все покупатели.
примеры
входные данные
5
5 10 15
2 10 15
5 5 5
20 20 1
20 1 1
выходные данные
12
n = 25;
var
a: array[1..n] of real;
i, j: integer;
min, max: real;
sum, product, harmonic: real;
begin
{ввод массива}
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(40) - 20;
write(a[i], ' ');
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
sum := sum + a[i];
writeln('average = ', sum / n);
{минимум и максимум}
min := a[1];
for i := 1 to n do
if min > a[i] then min := a[i];
writeln('min = ', min);
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.