Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
DeFauLD
03.07.2021 08:05 •
Информатика
Заданы массивы действительных чисел а1,а2,…,а20 и b1,b2,…,b30. перенести в массив с те элементы массива в, которые встречаются в массиве а, удалив их и из массива а, и из массива в. : 3
Ответ:
mariazhu
04.10.2020 06:42
// PascalABC.Net 3.2
begin
var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println;
var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println;
var c:=a.Intersect(b).ToArray;
Write('C='); c.Println;
a:=a.Except(c).ToArray; Write('A новый='); a.Println;
b:=b.Except(c).ToArray; Write('B новый='); b.Println
end.
Пример решения
A=15.1 25.1 29.1 24.1 16.1 29.1 18.1 13.1 10.1 12.1 10.1 13.1 14.1 18.1 24.1
B=24.1 10.1 23.1 15.1 13.1 16.1 22.1 21.1 21.1 28.1 26.1 29.1
C=15.1 29.1 24.1 16.1 13.1 10.1
A новый=25.1 18.1 12.1 14.1
B новый=23.1 22.1 21.1 28.1 26.1
0,0
(0 оценок)
Ответ:
katerinatumasjp02dx5
04.10.2020 06:42
/////////////////////////////
0,0
(0 оценок)
Популярные вопросы: Информатика
creatorX
16.11.2021 13:03
Напишите в паскале говорят, что плохой программист – это тот, кто считает, что в одном килобайте 1000 байт, а хороший программист – это тот, кто полагает, что в одном...
T4ffy
12.03.2023 22:14
Что такое система счисления? Выберите один ответ: a. Цифры 1,2,3,4,5,6,7,8,9 b. правила арифметических действий c. это знаковая система, в которой числа записываются...
guljanatkabdrasheva
28.12.2021 07:01
Дана начальная позиция Робика и програма ю дорисуй позицию Робика После выполнения программы начальная позиция ю повторить 6 раз вправо вправо конец повторить три раза...
Nuruk04
28.10.2020 11:14
Диофантово уравнение Даны числа a, b, c, d. Выведите в порядке возрастания все целые числа от 0 до 1000, которые являются корнями уравнения a∗x3+b∗x2+c∗x+d=0. Входные...
фиаско123
14.03.2023 15:38
1. Азбука Морзе позволяет кодировать символы для радиосвязи, задавая комбинацию точек и тире. Сколько различных символов (цифр, букв, знаков пунктуации и т.д.) можно...
BlaBla1aquamarine
10.11.2021 08:13
Все системы счисления делятся на две группы: Выберите один ответ: a. римские и арабские b. двоичные и десятичные c. целые и дробные d. позиционные и непозиционные...
andreyrekvinov
08.03.2021 21:37
Вадание 1. На своем домашнем компьютере определи1. название Антивирусной программы;2. срок действия лицензии;3. дату последнего обновления антивирусных баз;4. дату последней...
НастяandТима
04.04.2022 03:23
Каким образом информация хранится в компьютере...
Элина17539
04.10.2022 07:55
Тесты по Информатике и ИТ для 6-х классов1. Для чего служит дисковод? а) Для распечатки документов б) Для работы с дискетой в) Для записи информации в память г) Правильные...
Лина1990
18.01.2022 17:30
Почему в компьютере используется двоичная система счисления? Выберите один ответ: a. Потому что составляющие компьютер технические устройства могут надежно сохранять...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println;
var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println;
var c:=a.Intersect(b).ToArray;
Write('C='); c.Println;
a:=a.Except(c).ToArray; Write('A новый='); a.Println;
b:=b.Except(c).ToArray; Write('B новый='); b.Println
end.
Пример решения
A=15.1 25.1 29.1 24.1 16.1 29.1 18.1 13.1 10.1 12.1 10.1 13.1 14.1 18.1 24.1
B=24.1 10.1 23.1 15.1 13.1 16.1 22.1 21.1 21.1 28.1 26.1 29.1
C=15.1 29.1 24.1 16.1 13.1 10.1
A новый=25.1 18.1 12.1 14.1
B новый=23.1 22.1 21.1 28.1 26.1