Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
pawskayaliolya
24.08.2021 01:07 •
Информатика
Дан целочисленный массив а из 100 элементов. написать программу, которая выдает на экран элементы массива, встречающиеся более одного раза.
Показать ответ
Ответ:
Мария05m
04.10.2020 07:42
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(100, 1, 100).toList;
Println(A);
a := a.Sorted.toList;
a := a.Pairwise().Where(x -> x.Item1 = x.Item2).Select(x -> x.Item1).toList;
a := a.Distinct.toList;
Println(A);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ричбич4
18.12.2022 02:42
Упорядочить в порядке возрастания элементы, расположенные между четвёртым и девятым отрицательным числами массива.( паскаль полный код...
rageworker
12.10.2020 10:32
Сделайте конспекты по параграфу 3не ,у меня прост информатик пуська...
Golovina077
18.12.2022 02:42
Скласти речення зі слів (їх, у, презинтіції, ефекти, анімації, можна, визначають, алгоритм, на, руху, слайді, які, додати, об єктів...
Starfire234
23.12.2021 12:37
Что значит сивал сердечко...
alina1923
28.02.2020 05:38
Подскажите как исправить, плохо разбираюсь в пунктуации Паскаля)...
Anonim78e
21.03.2020 02:55
Напишите алгоритм написания в Паскале задачи на четные числа. (Словами, что делаем)...
ANONIM235063
20.04.2021 13:05
Сделать блок-схему. Дана матрица размером nxn вычислить сумму и число положительных элементов каждого столбца матрицы....
balandinradmir
01.08.2020 00:26
Почему конъюнкцию и дизъюнкцию называют бинарными логическими операциями, а инверсию - унарной ?...
SelesTia3
24.03.2020 21:20
Какова цель эргономики Организовать эффективную работу и удобство рабочих мест посредствам понятий «человек и техническое оборудование»Улучшение рабочего оборудования, рабочего...
пукимэн228
24.01.2023 09:36
С ПОДРОБНЫМ решением ОЧЕНЬ Каждый символ алфавита занимает объем в виде 6-тизначного двоичного кода. Определите максимальное количество (мощность) символов в этом алфавите. Определите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a := ArrRandomInteger(100, 1, 100).toList;
Println(A);
a := a.Sorted.toList;
a := a.Pairwise().Where(x -> x.Item1 = x.Item2).Select(x -> x.Item1).toList;
a := a.Distinct.toList;
Println(A);
end.