продукцией городского молочного завода являются молоко, кефир и сметана на
производства 1 т молока, кефира и сметаны требуется соответственно 1010, 1020 и 9450
кг молока.
прибыль от реализации 1 т молока, кефира и сметаны соответственно равны 300, 220 и
1360 тыс сум было изготовлено молока 123 т, кефира 342 т, сметаны 256 т.
требуется:
a) при электронной таблицы рассчитать: прибыль от реализации каждого вида
изделий, общую прибыль, долю (в процентах) прибыльности каждого вида изделий оr
общей суммы, расход молока (сырья);
6) построить диаграмму по расходу сырья для каждого вида изделия.
---
Uses crt;
{описание переменных}
var a,b,c: array [1..20] of integer;
x,sum:integer;
begin
sum:=0; {обнуляем сумму}
for x:=1 to 20 do {включаем цикл ввода массивов}
begin
write('a[',x,']:'); {вывод текста на экран}
readln(a[x]); {ввод массива А}
write('b[',x,']:'); {вывод текста на экран}
readln(b[x]); {ввод массива В}
c[x]:=a[x]+b[x]; {формируем массив С}
if x mod 2=0 then
sum:=sum+c[x];
end;
writeln; {переводим указатель на новую строку}
for x:=1 to 20 do {цикл вывода массива С}
writeln('c[',x,']:',c[x]); {вывод текста на экран}
writeln('sum=',sum); {сумма четных элементов массива С}
end.
---
текст в фигурных скобках удалять не обязательно, он на код не влияет.