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 выводит результат на экран.
Подытоживая:
Чтобы установить в исполнителе Чертёжник в КуМире жёлтый цвет линии, надо:
1) Указать использование исполнителя Чертёжник в программе.
Для этого надо в самой первой строке программы (до "алг" , до "нач", вообще до всего) записать следующее:
использовать Чертежник
(именно так, без буквы "ё", большая буква только "Ч", остальные- малые, иначе не будет работать (да, да, тут регистр важен))
2) В самом теле программы (после строк "алг", "нач", но до строки "кон") указать следующую команду установки цвета:
выбрать чернила(жёлтый)
(тут уже можно вместо "ё" ставить "е", но буквы все должны быть малые)
Привожу скрин примера программы.
Проверял в Кумире версии 2.1.0-rc7