В двух одномерных массивах найти количество элементов, которые всречаются только в первом или только во втором массиве.

@Brian_UIN · Регистрация: 16.05.2010

Author24 — интернет-сервис помощи студентам

Прошу помощи с таким заданием:
В двух одномерных массивах найти количество элементов, которые всречаются только в первом или только во втором массиве.
Есть следующая наработка:

Pascal

var
b,a:array[1..100] of integer;
m,x,i,n,k,l,z:integer;
begin
writeln('Vvedit rozmiry dvoh massyviv');
readln(x,l);
writeln;
writeln;
randomize;
for i:=1 to x do
begin
a[i]:=random(15)-7;
write(a[i]:4);
end;
writeln;
writeln;
for i:=1 to l do
begin
b[i]:=random(15)-7;
write(b[i]:4);
end;
writeln;
writeln;
k:=0;
for i:=1 to x do
begin
z:=0;
for m:=1 to l do
begin
if a[i]=b[m] then
z:=z+1;
end;
if z=0 then
k:=k+1;
end;
writeln;
writeln;
writeln(k);
readln;
end.

Но она считает только неповторяющиеся элементы первого массива, не подскажете в чем ошибка?
Премного благодарен.

@STGE · 19.05.2010, 00:39

Возможно так (здесь, как вы наверное поняли, представлен фрагмент программы):

Pascal

u:=true;
m:=[];
for i:=1 to 100 do
begin
for j:=1 to 100 do
if a[i]=b[j] then u:=false;
if not (a[i] in m) and (u=true) then 
begin
m:=m+[a[i]];
inc(k);
end;
u:=true;
end;

@Brian_UIN · 20.05.2010, 10:18 **[ТС]**

Извините что туплю, но я не совсем понял куда вставлять этот кусок...

Добавлено через 8 часов 4 минуты
Теме ап... Извините, что надоедаю

Добавлено через 6 часов 4 минуты
И снова ап... Помогите, пожалуйста...

Добавлено через 2 часа 21 минуту
.....

Добавлено через 8 часов 32 минуты
Тeмe aп. Прошу помощи.

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@Brian_UIN 0 / 0 / 0 Регистрация: 16.05.2010 Сообщений: 15
	20.05.2010, 10:18 [ТС]	3
	Извините что туплю, но я не совсем понял куда вставлять этот кусок... Добавлено через 8 часов 4 минуты Теме ап... Извините, что надоедаю Добавлено через 6 часов 4 минуты И снова ап... Помогите, пожалуйста... Добавлено через 2 часа 21 минуту ..... Добавлено через 8 часов 32 минуты Тeмe aп. Прошу помощи. 0