Образовать массив из элементов, встречающихся одновременно в двух заданных массивах

@SpeedySpeedovsk · Регистрация: 17.09.2015

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

Даны два массива. Образовать третий массив из элементов встречающихся в обоих массивах.

@Peoples · 02.03.2016, 14:18

Pascal

program pr;
var
a,b,c:array [1..100] of integer;   // можешь ставить сколько надо или исп динамический (поставил из 100 для примера)
i,j,cout,k,n:integer;
begin
writeln('Введите размер массивов');
readln(n);
writeln('1 массив');
for i:=1 to n do 
begin
a[i]:=random(21);      // диапазон заполнения какой хочешь ставь
write(a[i]:3);
end;
writeln;
writeln('2 массив');
for j:=1 to n do 
begin
b[j]:=random(21);    // диапазон заполнения какой хочешь ставь
write(b[j]:3);
end;
writeln;
cout:=0;
k:=0;
for i:=1 to n do
for j:=1 to n  do
if ((a[i]=b[j])) then
begin
cout:=cout+1;
inc(k);
c[k]:=a[i];
end;
writeln;
for k:=1 to cout do
begin
write(c[k]:3);
end;
end.

@SpeedySpeedovsk 0 / 0 / 0 Регистрация: 17.09.2015 Сообщений: 44
		1
	Образовать массив из элементов, встречающихся одновременно в двух заданных массивах 02.03.2016, 13:39. Показов 1623. Ответов 1 Метки нет (Все метки) Даны два массива. Образовать третий массив из элементов встречающихся в обоих массивах. 0

	02.03.2016, 14:18

Образовать массив из элементов, встречающихся одновременно в двух заданных массивах

Решение