Составьте программу вычисления суммы элементов одномерного массива A(N), встречающихся в массиве B(N) ровно два раза.
pascalABC
Ответы на вопрос:
===== 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.
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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
JasoonVORheeZ23.09.2020 05:39
-
IdaPosion28.06.2021 02:41
-
volkow2711ovuu5e02.03.2023 07:58
-
Yarik20082508.12.2020 20:29
-
ilmasha2402.09.2020 12:25
-
lol102731.01.2021 10:09
-
korolev9811.03.2021 08:10
-
zozoshcka1708.05.2023 09:38
-
pro100leramakh01.04.2022 08:04
-
AnnaLOVEannaLOVEanna24.06.2023 13:56
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.