НУЖНА сделайте в Exel
Для выполнения задания необходимо организовать табличные вычисления над данными, расположенными на разных листах рабочей книги.
1. Торговая фирма, в состав которой входят три магазина, занимается продажей товаров бытовой химии. Еженедельно составляется отчет по продажам. Автоматизируйте процесс создания отчета: - данные о еженедельных продажах для каждого магазина разместите на отдельных листах рабочей книги; - поместите на отдельный лист итоговый отчет по всем магазинам, в котором подсчитывается суммарное количество проданного товара каждого типа, денежная сумма по каждому товару, итоговая денежная сумма по каждому товару, итоговая денежная сумма по всем магазинам.
2. На трех метеостанциях ежедневно измеряются температура и влажность воздуха, а также атмосферное давление. Метеоданные по каждой станции за один месяц разместите на отдельных листах рабочей книги. На отдельном листе в каждый день сесяца вычислите усредненные (по всем трем метеостанциям) метеоданные.
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.