Question

Составьте программу вычисления суммы элементов одномерного массива A(N), встречающихся в массиве B(N) ровно два раза.
pascalABC

Answer 1

Ответ:

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.

Answer 2

===== 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.