// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
type Mas=array[,] of integer;
procedure GetMas(s:string; var a:Mas); begin Writeln('*** Массив ',s,' ***'); var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('Вводите элементы массива'); a:=ReadMatrInteger(n,m) end;
function SumDiag(a:Mas):integer; begin Result:=0; for var i:=0 to Min(a.RowCount,a.ColCount)-1 do Result+=a[i,i] end;
begin var a,b,c:Mas; GetMas('A',a); GetMas('B',b); GetMas('C',c); Writeln('Общая сумма элементов главных диагоналей равна ', SumDiag(a)+SumDiag(b)+SumDiag(c)) end.
Пример *** Массив A *** Количество строк в массиве: 3 Количество столбцов в массиве: 4 Вводите элементы массива -33 -50 34 -41 -31 10 37 31 32 -49 -32 -27 *** Массив B *** Количество строк в массиве: 2 Количество столбцов в массиве: 2 Вводите элементы массива -22 35 0 11 *** Массив C *** Количество строк в массиве: 3 Количество столбцов в массиве: 2 Вводите элементы массива 23 38 17 -8 16 -1 Общая сумма элементов главных диагоналей равна -51
1. Нажимаешь ПКМ на ячейку в столбце С, где написано "15 июня" (любую), наводишь на "Фильтр"→ "Фильтр по значению выделенной ячейки". Затем щёлкаешь 2 раза на H2 и текстом вводишь формулу (без кавычек): "=СРЗНАЧ( )" ⇒ В скобках пишешь интервал ячеек; например, (E2:E10). (Их также можно выделить через Shift, пока набираешь формулу, нажав самую верхнюю и самую нижнюю ячейку в нужном столбце)
2. Аналогично, в столбце D ищешь любую ячейку с названием "История" → ПКМ → "Фильтр" → "Фильтр по значению выделенной ячейки". Так же настраиваешь ДЕНЬ. В ячейке Н3 пишешь формулу "=СРЗНАЧ( )" - по той же схеме, что описывал выше
-- Чтобы рассчитать в ответе "Не менее двух знаков после запятой", выдели 2 ячейки с ответами, нажми ПКМ → "Формат ячеек..." → "Числовой" → "Число десятичных знаков: 2".
// Внимание! Если программа не работает, обновите версию!
type
Mas=array[,] of integer;
procedure GetMas(s:string; var a:Mas);
begin
Writeln('*** Массив ',s,' ***');
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('Вводите элементы массива');
a:=ReadMatrInteger(n,m)
end;
function SumDiag(a:Mas):integer;
begin
Result:=0;
for var i:=0 to Min(a.RowCount,a.ColCount)-1 do Result+=a[i,i]
end;
begin
var a,b,c:Mas;
GetMas('A',a);
GetMas('B',b);
GetMas('C',c);
Writeln('Общая сумма элементов главных диагоналей равна ',
SumDiag(a)+SumDiag(b)+SumDiag(c))
end.
Пример
*** Массив A ***
Количество строк в массиве: 3
Количество столбцов в массиве: 4
Вводите элементы массива
-33 -50 34 -41
-31 10 37 31
32 -49 -32 -27
*** Массив B ***
Количество строк в массиве: 2
Количество столбцов в массиве: 2
Вводите элементы массива
-22 35
0 11
*** Массив C ***
Количество строк в массиве: 3
Количество столбцов в массиве: 2
Вводите элементы массива
23 38
17 -8
16 -1
Общая сумма элементов главных диагоналей равна -51