Найти элементы, которые есть в первом массиве, и которых нет во втором массиве

@ballaz · Регистрация: 26.02.2010

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

Даны два одномерных массива из целых чисел. Найти элементы, которые есть в первом массиве, и которых нет во втором массиве.

@кот Бегемот · 01.03.2010, 00:40

Сообщение от ballaz

Даны два одномерных массива из целых чисел. Найти элементы, которые есть в первом массиве, и которых нет во втором массиве.

Pascal

var
a,b:array[1..100]of integer;
n1,n2,i,j,f:integer;
begin
randomize;
writeln('vvedite kolichestvo elementov 1 massiva');
readln(n1);
for i:=1 to n1 do
a[i]:=random(20);
writeln('massiv 1');
for i:=1 to n1 do
write(a[i],' ');
writeln;
writeln('vvedite kolichestvo elementov 2 massiva');
readln(n2);
for i:=1 to n2 do
b[i]:=random(20);
writeln('massiv 2');
for i:=1 to n2 do
write(b[i],' ');
writeln;
writeln('elementy:');
for i:=1 to n1 do
begin
f:=0;
for j:=1 to n2 do
if a[i]=b[j] then f:=1;
if f=0 then write(a[i],' ');
end;
readln;
end.

@ballaz 1 / 1 / 0 Регистрация: 26.02.2010 Сообщений: 10
		1
	Найти элементы, которые есть в первом массиве, и которых нет во втором массиве 01.03.2010, 00:06. Показов 7555. Ответов 1 Метки нет (Все метки) Даны два одномерных массива из целых чисел. Найти элементы, которые есть в первом массиве, и которых нет во втором массиве. 0

	01.03.2010, 00:40

Найти элементы, которые есть в первом массиве, и которых нет во втором массиве

Решение