<span> Истоки моделирования обнаруживаются в далеком прошлом человечества, наскальные рисунки охоты на животных можно рассматривать как модель удачной охоты.</span>
<span>Архитектор готовится построить здание, но прежде чем воздвигнуть его, он сооружает макет этого </span><em>здания,</em><span> чтобы посмотреть, как оно будет выглядеть. Это модель. Для того чтобы объяснить внутреннее строение человека или животного учитель демонстрирует модель или плакат, на котором наглядно можно продемонстрировать строение внутренних органов. Это модель.</span>
<span>Перестановка мебели. </span>
<span>На стене висят картины, изображающие пейзаж природы. Это модель.</span>
<span>Глобус – это модель земного шара. Манекен в магазине – модель человека.</span>
<span>В роли модели могут выступать самые разнообразные объекты, в том числе условные и мысленные (изображения, описания, схемы, карты, математические формулы, компьютерные программы и т.д.)</span>
<span>Перечислять примеры моделей можно сколь угодно долго.</span>
<span>А для чего же создают модели? (Солнечная система. Модель атома. Модель двигателя внутреннего сгорания.</span>
<span> Геологическая модель. Модель атомного взрыва. Модель самолета.) </span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
4 11
802 743 457 539
200
Ну? Понятно, 16 рядов, 32 места в каждом... продали ОДИН БИЛЕТ В ВОСЬМОМ РЯДУ, номер 8 ... и что ??? Какой вопрос задачи?;)
12022, 1222, 989, 90899, 9000