Нужна таблица в В ассортимент фирмы по продаже входят дверные блоки, оконные блоки, табуретки,
столы и другая продукция. В феврале объём продаж и рост за месяц ( в %) составил:
двери - 15000 шт, 20 %.
окна - 17000 шт, 10 %.
табуретки - 7000 шт, 10 %.
столы - 9000 шт, 15 %.
Посчитать: а) объём продаж в январе.
б) объём продаж в январе и в феврале в денежном выражении. Стоимость установить
самостоятельно.
в) объём продаж за 2 месяца.
Один из результатов представьте графически.
Program Vigod;
uses crt;
const
n = 12;
m = 13;
var
a:array[1..n,1..m] of integer;
i, j, max: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
{заполняем массив случайными числами}
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(101)-50;
if a[i,j] mod 3 = 0 then max:=a[i,j];
end;
{находим нужный элемент и выводим массив}
for i:=1 to n do
begin
for j:=1 to m do
begin
if (a[i,j] mod 3 = 0) and (a[i,j]>max)then
max:=a[i,j];
write(a[i,j]:4);
end;
writeln();
end;
writeln();
writeln('максимальный элемент кратный 3, равeн ',max);
end.
Проверено - работает на Паскаль АВС
1) в свободную ячейку, например F2 пишешь формулу Если *Имя ячейки с округом* = "СВ", то значение истина равно ячейке с предметом, в знаечение ложь ставишь пробел. далее формулу растягиваешь до конца таблицы, после в ячейка H2 пишешь формулу счет если выделяешь ячейки в которых формула Если и в окне критерий пишешь: "математика". 3 делаешь аналогично
2) опять становишься в любую ячейку, вставляешь формулу Если *имя ячейки* = "СЗ", то значение истина равно *имя ячейки с *, в значении ложь ставишь пробел.
растягиваешь формулу до конца таблицы. далее в ячейку Н3 вставляешь формулу Срзнач и выделяшь всю калонку в которой формула Если. Ну а 4 аналогично