В городке N в последние дни снова растёт заболеваемость коронавирусом. Как и во всех остальных городах, перед администрацией стоит задача сбить темп эпидемии, максимально сохраняя экономику. По поручению мэра было проведено исследование, в результате которого составили список магазинов города с размером их средней дневной выручки, количества посетителей в день и вероятностью их заражения (в процентах) во время посещения магазина, исходя из площади помещений и соблюдения санитарных норм.
Требуется определить список магазинов, которые требуется временно закрыть, чтобы сократить дневную заболеваемость на M человек, с минимальными потерями для экономики. Потери для экономики определяются совокупным размером выручки, который перестанут получать закрытые магазины.
Розбити три сирих яйця над мискою 2. додати у миску з яйцями щіпку солі 3. збити міксером суміш у мисці 4. відрізати три кружечки ковбаси 5. увімкнути конфорку 6. поставити на конфорку сковороду 7. змастити сковороду вершковим маслом 8. покласти на сковороду кружечки ковбаси 9. вилити у сковороду збиті яйця 10. смажити три хвилини 11. вимкнути конфорку ти, напевне, успішно виконав завдання на попередньому уроці. тому можна приступити до виконання більш цікавого завдання. вантажів тепер буде 5. і вага кожного з них буде більша, ніж у попередніх. перед тобою та ж сама: скласти алгоритм завантаження корабля. не забудь про розташування контейнерів.
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.
