НУЖНА сделайте в Exel
Для выполнения задания необходимо организовать табличные вычисления над данными, расположенными на разных листах рабочей книги.
1. Торговая фирма, в состав которой входят три магазина, занимается продажей товаров бытовой химии. Еженедельно составляется отчет по продажам. Автоматизируйте процесс создания отчета: - данные о еженедельных продажах для каждого магазина разместите на отдельных листах рабочей книги; - поместите на отдельный лист итоговый отчет по всем магазинам, в котором подсчитывается суммарное количество проданного товара каждого типа, денежная сумма по каждому товару, итоговая денежная сумма по каждому товару, итоговая денежная сумма по всем магазинам.
2. На трех метеостанциях ежедневно измеряются температура и влажность воздуха, а также атмосферное давление. Метеоданные по каждой станции за один месяц разместите на отдельных листах рабочей книги. На отдельном листе в каждый день сесяца вычислите усредненные (по всем трем метеостанциям) метеоданные.
const n=20;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i]:4)
end;
writeln;
write('K = '); readln(k);
s:=0;
for i:=1 to n do
if a[i] mod k = 0 then s:=s+a[i];
Writeln('s = ',s);
end.
Пример:
Исходный массив:
18 -24 -4 -21 15 19 18 -16 -1 -8 7 -21 21 22 -24 -4 18 -16 24 4
K = 3
s = 24
2.
const n=10;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(11);
Write(a[i]:4)
end;
writeln;
writeln('Выбранные элементы:');
for i:=1 to n do
if a[i]<=i then Write(a[i]:4) else write(' ':4);
Writeln;
end.
Пример:
Исходный массив:
9 1 2 8 2 7 1 10 8 3
Выбранные элементы:
1 2 2 1 8 3
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
var k:=ReadInteger('k=');
Writeln('Сумма чисел, кратных ',k,': ',
a.Where(x->x mod k=0).Sum)
end.
Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,20);
a.Println;
a.Where((x,i)->x=i+1).Println
end.
Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16