=СУММ(A5:A7;B5:B7)
=СУММ(C4:C7)/4
Элементная база компьютеров первого поколения - это: Электронная лампа
Одно из "быстрых по написанию" решений, не учитывающих фактор наличия упорядоченности массивов. Это разумно: 10 баллов за решение - не та цена, за которую есть смысл составлять и отлаживать эффективный алгоритм поиска по упорядоченным массивам.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var x:=ArrRandom(ReadInteger('p='),-20,20).Sorted;
var y:=ArrRandom(ReadInteger('q='),-10,15).Sorted;
var z:=ArrRandom(ReadInteger('r='),1,18).Sorted;
x.Println; y.Println; z.Println;
var r:=x.Intersect(y.Intersect(z));
if r.Count=0 then Writeln('Нет общих элементов')
else begin Write ('Общие элементы: '); r.Println end
end.
<u><em>Тестовое решение</em></u>
p= 15
q= 13
r= 18
-19 -16 -15 -11 -7 -7 -2 0 0 2 4 7 10 14 20
-8 -6 -4 -4 -4 -3 -1 4 4 9 13 13 15
1 1 2 2 2 4 4 5 6 9 10 12 12 14 14 15 15 17
Общие элементы: 4
1) 12(в16с/c) =1*16 +2 = 18 (в 10c/c)
12( в 8с/с) = 1*8+2 =10 (в 10с/с)
10 (в 2 с/с) = 2 ( в 10с/с)
18+10*2 = 38 (в 10с/с)
38(в10с/с) = 46(в 8с/с) = 100 110 (в 2с/с) = 26 (в 16с/с)
2) ошибка в записи 4) , в 7с/с нет цифры 7 ( а есть 0 1 2 3 4 5 6 )