В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
misterbabadook
misterbabadook
12.07.2020 00:58 •  Информатика

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

Показать ответ
Ответ:
Tata123N
Tata123N
12.10.2020 00:57

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.

0,0(0 оценок)
Ответ:
3456801
3456801
12.10.2020 00:57

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


Составьте программу вычисления суммы элементов одномерного массива A(N), встречающихся в массиве B(N
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота