Даны два массива. Сравнить множество их значений.

@Ленка23 · Регистрация: 23.05.2013

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

составить программу для решения задач:
1.Даны два массива. Сравнить множество их значений.

Комментарий модератора

1) Множественные задания в одной теме запрещены. Ваши остальные вопросы вынесены в отдельные темы:
Дан массив и множество. Составить программу выясняющую, входит ли каждый элемент массива в множество.
Даны две строки. Сравнить множества их символов.
Определить, сколько выходных дней среди чисел мая текущего года, содержащихся в данном числовом массиве.
Дан массив натуральных двузначных чисел. Проверить, все ли его элементы являются простыми числами.
Даны две строки. Из множества символов первой строки удалить символы содержащиеся во второй строке.
2) Название темы должно быть информативным

Kodzaev · 26.06.2013, 23:33

Pascal

Var
  a,b: Array [1..100] of Byte;
  x,y: Set of Byte;
  i,n: Byte;
BEGIN
x:=[];
y:=[];
Write('Введите кол-во элементов массива A: ');
Readln(n);
Writeln('Введите элементы в массив A: ');
For i:=1 to n do
begin
  Readln(a[i]);
  Include(x,a[i]);
end;
Write('Введите кол-во элементов массива B: ');
Readln(n);
Writeln('Введите элементы в массив B: ');
For i:=1 to n do
begin
  Readln(b[i]);
  Include(y,b[i]);
end;
Writeln('Ответ: ',x=y);
END.

Опции темы

Даны два массива. Сравнить множество их значений.

Решение