Паскаль! ! провода дано n отрезков провода длиной l1, l2, ln сантиметров. требуется с разрезания получить из них k равных отрезков как можно большей длины, выражающейся целым числом сантиметров. если нельзя получить k отрезков длиной даже 1 см, вывести 0. ограничения: 1 < = n < = 10 000, 1 < = k < = 10 000, 100 < = li < = 10 000 000, все числа целые. входные данные в первой строке находятся числа n и к. в следующих n строках - l1, l2, ln, по одному числу в строке. выходные данные вывести одно число - полученную длину отрезков.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var естькусков,надокусков: integer;   readln(естькусков,надокусков);   var длины: =readarrinteger(естькусков);   var общаядлина: =длины.sum;   if надокусков> общаядлина then writeln(0)   else begin       var длинакуска: =общаядлина div надокусков;       repeat           if длины.select(кусок-> кусок div длинакуска).sum > =надокусков then break           else длинакуска-=1;       until false;       writeln(длинакуска)       end end. пример 4 11 802 743 457 539 200

Решение в прикрепленном файле. ввод -вывод 5 12 6 7 8 9 10 длина отрезка: 3

v=331+0.6t

в зимний день- v=331+0.6*(-35)=310 м/с

в летний день- v=331+0.6*30=349 м/с