продукцией городского молочного завода являются молоко, кефир и сметана на

производства 1 т молока, кефира и сметаны требуется соответственно 1010, 1020 и 9450

кг молока.

прибыль от реализации 1 т молока, кефира и сметаны соответственно равны 300, 220 и

1360 тыс сум было изготовлено молока 123 т, кефира 342 т, сметаны 256 т.

требуется:

a) при электронной таблицы рассчитать: прибыль от реализации каждого вида

изделий, общую прибыль, долю (в процентах) прибыльности каждого вида изделий оr

общей суммы, расход молока (сырья);

6) построить диаграмму по расходу сырья для каждого вида изделия.

Program Pr1;
uses crt;
var mas:array[1..15] of integer;
i,max,min,b,v:integer;
Begin
clrscr;
for i:=1 to 15 do mas[i]:=random(10);
for i:=1 to 15 do write(mas[i]);
max:=0;
min:=100000;
b:=0;
for i:=1 to 15 do begin
if mas[i]>max then max:=i;
if mas[i]<min then min:=i;
end;
if max>min then for i:=min to max div 2 do begin
v:=mas[max-b];
mas[max-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end
else for i:=max to min div 2 do begin
v:=mas[min-b];
mas[min-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end;
writeln();
for i:=1 to 15 do write(mas[i]);
end.

var a: integer;

var t: real;

begin

   readln(a);

   t:= (a div 10) * (a mod 10) / 2;

   writeln(t)

end.

var a: integer;

begin

   readln(a);

   writeln((a div 10) - (a mod 10))

end.

var a: integer;

begin

   readln(a);

   writeln((a div 1000), " килограмм ", (a mod 1000), " грамм")

end.

var a: integer;

begin

   readln(a);

   writeln(a div 10000)

end.

var a, b, c, d: integer;

begin

   readln(a);

   d:= a div 38400;

   a:= a mod 38400;

   c:= a div 3840;

   a:= a mod 3840;

   b:= a div 96;

   a:= a mod 96;

   writeln(d, " берковцев ", c, " пудов ", b, " фунтов ", a, " золотников")

end.