begin
var s: integer;
var x := ReadInteger('Введите размер массива');
var a := ArrRandomInteger(x, 1, 10); Println('Массив А'); a.Println;
var b := ArrRandomInteger(x, 1, 10); Println('Массив B'); b.Println;
for var i := 0 to High(a) do
var k := 0;
for var j := 0 to High(b) do
if (a[i] = b[j]) then Inc(k);
if k = 2 then
s += a[i];
end;
Print('Сумма', s);
end.
===== PascalABC.NET =====
var n := ReadInteger('n =');
var A := ArrRandom(n, -10, 10);
A.Println;
var B := ArrRandom(n, -10, 10);
B.Println;
// массивы получены
var D := new Dictionary<integer, integer>;
foreach var m in B do
if D.ContainsKey(m) then
D[m] += 1
else
D[m] := 1;
// словарь создан
A.Where(p -> D.ContainsKey(p) and (D[p] = 2)).Sum.Print
begin
var s: integer;
var x := ReadInteger('Введите размер массива');
var a := ArrRandomInteger(x, 1, 10); Println('Массив А'); a.Println;
var b := ArrRandomInteger(x, 1, 10); Println('Массив B'); b.Println;
for var i := 0 to High(a) do
begin
var k := 0;
for var j := 0 to High(b) do
if (a[i] = b[j]) then Inc(k);
if k = 2 then
s += a[i];
end;
Print('Сумма', s);
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var A := ArrRandom(n, -10, 10);
A.Println;
var B := ArrRandom(n, -10, 10);
B.Println;
// массивы получены
var D := new Dictionary<integer, integer>;
foreach var m in B do
if D.ContainsKey(m) then
D[m] += 1
else
D[m] := 1;
// словарь создан
A.Where(p -> D.ContainsKey(p) and (D[p] = 2)).Sum.Print
end.