Кондитерская фабрика изготовила в январе конфеты вида а-150 тонн, вида в-230 тонн, вида с- 180 тонн. в феврале производство продукции выросло: вида а на 4% , вида в на 5%, с на 2%. в марте рост составил соответственно 2, 3 и 2%. затраты на изготовление каждого вида конфет составляют а-95 руб., в-78 руб., с-84 руб. продажная стоимость каждого вида изделий составляет соответственно 120 руб., 100 руб. и 110 руб.
требуется:
а) при электронной таблицы рассчитать:
- какое количество конфет изготовлено в каждый месяц;
- прибыль от реализации каждого вида изделий;
- ежемесячные затраты на производство каждого вида изделия;
б) построить диаграмму по прибыли каждого вида изделия.
var i,m:longint;
sum,count:real;
A:array [1..n] of longint;
begin
sum:=0; count:=0;
for i:=1 to n do
begin read(m); A[i]:=m end;
for i:=1 to n do
if (A[i]>=2) and (A[i]<=8)
then begin sum:=sum+A[i]; count:=count+1 end;
sum:=sum/count;
if (sum<0)
then writeln('Элементов удовлетворяющих условию нет')
else writeln(sum);
end.
P.S. Переменную n во всем тексте программы следует заменить на конкретное натуральное число!