Заполните таблицу:
Ссылки

Для изготовления двух видов изделий I и II используются три вида сырья.На производство единицы изделия I требуется затратить сырья первого вида 13 кг, сырья второго вида — 32 кг, сырья третьего вида — 58 кг.На производство единицы изделия II требуется затратить сырья первого вида 24 кг, сырья второго вида — 32 кг и сырья третьего вида — 29 кг.Производство обеспечено сырьем первого вида в количестве 312 кг, сырьем второго вида — 480 кг, сырьем третьего вида — 696 кг.Прибыль от реализации единицы готового изделия I составляет 4 усл. ед., а изделия II — 3 усл. ед.Требуется составить план производства изделий I и II, обеспечивающий максимальную прибыль от их реализации, если заранее планируется изготовление не менее 10 единиц изделий I и II.Решение. Рассмотрим математическую модель задачи. Если за *1 взять количество изделий I, планируемых к выпуску, а за.¾ — количество изделий II, то получим задачу линейного программирования.найти максимум линейной функции

Program Task;
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
    marks_average: Array[1..pupils] of Real;
    i, j: Integer;
    all_marks_average: Real;
Begin    For i := 1 To pupils Do
    Begin
        WriteLn('Введите через пробел оценки ученика №', i);
        For j := 1 To subjects Do
            Read(marks[i, j]);
    End;
    For i := 1 To pupils Do
    Begin
        For j := 1 To subjects Do
            marks_average[i] := marks_average[i] + marks[i, j];
        marks_average[i] := marks_average[i] / subjects;
    End;    For i := 1 To pupils Do
        all_marks_average := all_marks_average + marks_average[i];
    all_marks_average := all_marks_average / pupils;
    WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
End.