Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
asya1607
30.03.2022 22:29 •
Информатика
Отсортировать массив и найти количество различных чисел в нем.паскаль
Показать ответ
Ответ:
англиский33
03.10.2020 10:37
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,10); a.Println;
var d:=new dictionary<integer,integer>;
foreach var e in a.Sorted do d[e]:=d.Get(e)+1;
d.Println(NewLine)
end.
Тестовое решение:
n= 15
8 4 8 6 7 8 4 4 7 2 4 5 5 5 7
(2,1)
(4,4)
(5,3)
(6,1)
(7,3)
(8,3)
0,0
(0 оценок)
Популярные вопросы: Информатика
ПАМАГИТИИИИИИИИ
05.11.2021 18:39
мне черес 30мин сдавать...
tupykomiks
16.08.2022 09:02
Граф и число которое получится...
maksim5a
27.11.2020 10:53
A=9 b=11 if a b: print(a+b) else: print(a*b) Определить результат...
Trolello
18.07.2022 22:32
Программалауда айнымалы сиппаталады.Комектесындершы БЖБ ...
Анна23091
02.01.2020 18:51
У исполнителя Квадратор две команды, которым присвоены номера: 1. прибавь 1 2. возведи в квадрат Первая из них увеличивает число на экране на 1, вторая возводит его во вторую степень....
aise09
24.11.2022 02:02
Найдите информационный объём сообщения (I=16 бит) Мечта - мысль, который нечем кормиться....
урган1
24.11.2022 02:02
То, от чего зависит возможность исполнителя выполнить ту или иную команду. (9 букв)...
Рустам2009
12.07.2022 13:45
буду очень благодарна ...
abagvandmip0agkq
11.01.2021 11:25
14. Для виготовлення жерстяної коробки використовують квадрат- ний лист жерсті розміром аха см2. Висота коробки становитьb см. Маса 1 см2 жерсті становить сг. Визначте масу коробки.Побудуйте...
monkey06
25.08.2022 21:44
Даны 2 числа n - расстояние между остановками и m - количество метров, которое пешеход по улице. Какое расстояние до ближайшей остановки? Нужно решить на питоне...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(ReadInteger('n='),1,10); a.Println;
var d:=new dictionary<integer,integer>;
foreach var e in a.Sorted do d[e]:=d.Get(e)+1;
d.Println(NewLine)
end.
Тестовое решение:
n= 15
8 4 8 6 7 8 4 4 7 2 4 5 5 5 7
(2,1)
(4,4)
(5,3)
(6,1)
(7,3)
(8,3)