Напишите программу в паскале. Даны три одномерных массива из целых чисел. Найти элементы, принадлежащие всем трем массивам.
Ответы на вопрос:
const N = 10;
begin
var a := ArrRandom(N, 0, 20);
var b := ArrRandom(N, 0, 20);
var c := ArrRandom(N, 0, 20);
write('Массив a: '); a.Println();
write('Массив b: '); b.Println();
write('Массив c: '); c.Println();
write('Элементы, принадлежащие всем трем массивам: ');
a.FindAll(x->b.Contains(x) and c.Contains(x)).Distinct(
).PrintLn();
end.
Объяснение:
Первые три строки после begin создают три массива a,b,c и заполняют их N целыми числами в диапазоне от 0 до 20.
Конструкция "a.FindAll(x->b.Contains(x) and c.Contains(x)).Distinct().PrintLn();" делает следующее:
В массиве a выполняется поиск всех элементов (метод FindAll), удовлетворяющих условию:
x->b.Contains(x) and c.Contains(x)
Которое проверяет каждый элемент массива a (который обозначен x), содержится ли он в массиве b и массиве c (Методы Contains).
Далее метод Distinct удаляет все одинаковые элементы из получившейся последовательности, а метод PrintLn выводит результат на экран.
Популярно: Информатика
-
Беня201823.02.2022 19:39
-
wof123423.04.2022 03:42
-
Olga20039313.04.2023 21:50
-
derakA01.03.2021 21:04
-
Ангелина29392203.08.2022 04:30
-
натуся10320.09.2021 13:21
-
olchik7530.11.2021 00:35
-
liyakotova200118.02.2023 08:03
-
ОляRu08.06.2023 05:03
-
danil78218.04.2020 05:00