Данное естественное число n и 2 одномерные массивы X и Y,
Заданное естественное число n и 2 одномерные массивы X и Y, содержащие n элемент по каждому. Сформировать и вывести массив, каждый элемент которого, взятый из массива Х, не принадлежит множеству, образованному из элементов массива Y.
Evgenij
необходимо получить новый массив из X и Y;от элементов массива X которые не имеют одинаковых элементов массива Y.
Лариса
по условию "Элемент из Х с номером k не совпадает ни с одним элементом из Y"
Игорева
Агата
да
Валек Ситниченко
не судите требовательно, пожалуйста,из за моего отвратительного российского,я уже менял вопрос так как вы произнесли...или иное задание "Сформировать и вывести массив, каждый элемент которого, взятый из массива Х,принадлежит множеству, интеллигентному из частей массива Yименно 2 раз" пример таковой..X=[1,2,3,4,5,6,7,8,];Y=[1,2,2,3,3,4,4,4,];ответ должен быть ответ=[2,3]
1 ответ
Леонид Дажинов
// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var x:=ArrRandom(n,-50,50); Write('x: '); x.Println;
var y:=ArrRandom(n,-50,50); Write('y: '); y.Println;
var z:=x.Where(p-gt;not y.Any(q-gt;p=q)).ToArray;
Write('z: '); z.Println
end.
Пример
n= 17
x: -29 16 -20 -14 47 37 29 4 50 42 -30 38 -7 6 32 -11 -33
y: -26 32 24 18 -39 38 -18 -8 -42 -7 46 38 -4 -43 47 -27 -13
z: -29 16 -20 -14 37 29 4 50 42 -30 6 -11 -33
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var x:=ArrRandom(n,-50,50); Write('x: '); x.Println;
var y:=ArrRandom(n,-50,50); Write('y: '); y.Println;
var z:=x.Where(p-gt;not y.Any(q-gt;p=q)).ToArray;
Write('z: '); z.Println
end.
Пример
n= 17
x: -29 16 -20 -14 47 37 29 4 50 42 -30 38 -7 6 32 -11 -33
y: -26 32 24 18 -39 38 -18 -8 -42 -7 46 38 -4 -43 47 -27 -13
z: -29 16 -20 -14 37 29 4 50 42 -30 6 -11 -33
Тимур
массив X=masiv(=xerkrord) a Y=masiv2,,(цикл в цикле);;;;;когда элемент из X массива повторяется в Y массиве;то он удаляется из X массива и выводит массив X (xerkrord);
Амелия Агдгомелашвили
var z:=x.Where(p->not y.Any(q->p=q)).ToArray; Write('z: '); z.Println Можете в словах разъяснить эти 2 строчки?(я не знаю язык Pascal)
Юрий Шлаин
Спасибо вам большое за помощь!!!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов