Поделитесь своими знаниями, ответьте на вопрос:
Предприятие выпускает несколько видов продукции, расходуя при этом различные типы ресурсов. В таблице с вариантами исходных данных дано: 1) расход каждого ресурса на производство единицы продукции; 2) прибыль от производства единицы продукции; 3) количество имеющихся ресурсов каждого типа и величина прибыли, которую должно получить предприятие (столбец «Всего»); 4) дополнительные условия. Найти оптимальный план выпуска изделий, при котором общее количество израсходованных ресурсов будет минимальным. Считать, что объем выпуска измеряется в условных единицах и не задавать условие целочисленности для переменных. Продукция 1 Продукция 2 Продукция 3 Продукция 4 Всего Ресурс 1 3, 4 2, 3 2, 3 2, 2 8620 Ресурс 2 4, 8 4 4, 6 4, 2 14150 Ресурс 3 4, 6 4, 3 3, 8 3, 6 16400 Ресурс 4 1, 8 1, 8 1, 8 1, 7 5850 Ресурс 5 20 34 12 15 93000 Ресурс 6 11, 5 18, 6 21 42 72000 Прибыль 89 71 39 19 187000
const n = 30;
var a :array [1..n] of integer;
i, p :integer;
pr :real;
begin
randomize;
for i:= 1 to n do
a[i]:= random(33)-7;
p:= 1; for i:= 1 to n do
if a[i] > 0 then
p:= p * a[i];
pr:= p/2;
writeln(pr);
end.
program task2;
const n = 30;
var a: array [1..n] of integer;
i, sum, max, min: integer;
sr: real;
begin
randomize;
for i := 1 to n do
a[i] := random(33) - 7;
sum:= 0;
for i := 1 to n do
if a[i] >= 0 then
sum:= sum + sqr(a[i]);
min:= a[1]; max:= a[1];
for i := 1 to n do begin
if a[i] > max then max:= a[i];
if a[i] < min then min:= a[i];
end;
sr:= (max + min)/2;
writeln('Сумма кадратов: ',sum);
writeln('Среднее арифметическое: ',sr);
end.