Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
1DLove11
27.07.2021 12:51 •
Информатика
Сгенерировать массив из n различных случайных чисел. используя функцию shuffle перемешать элементы массива. удалить максимальный элемент массива (все,если их несколько) паскаль
Показать ответ
Ответ:
Liza200011111
16.08.2020 19:25
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,-10,10); a.Println;
a:=a.Shuffle; a.Println;
a:=a.Where(x->x<>a.Max).ToArray;
a.Println;
end.
Пример:
n = 20
8 -9 1 -5 -5 0 9 -4 -7 -4 -3 9 7 -2 4 6 -2 7 -9 -2
-4 -7 -2 8 9 -3 9 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
-4 -7 -2 8 -3 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
0,0
(0 оценок)
Популярные вопросы: Информатика
happyga
26.05.2022 17:59
Отметьте все формулы, которые НЕ изменятся при копировании из ячейки C6 в ячейку C8....
скорпион67
10.05.2023 03:52
Характеристики гостиниц Название Адрес Тип номера Цена за день Центральная Пр. Мира, д. 4 Люкс одноместный $150 Люкс двухместный $250 Спортивная Бульвар Профсоюзов, д. 15 одноместный...
Анестнйшен
16.04.2020 16:50
Какую структуру может иметь управляющий алгоритм при наличии обратной связь...
gdhdf
20.05.2023 17:14
забыла и пароль и пин-код от windows 10что делать с флешкой не предлагать) заранее ❤...
bratan02
23.10.2021 16:56
Написать программу на языке КУМИР вычисления площади и периметра прямоугольника. Длины сторон ввести с клавиатуры...
Agarin
21.02.2022 09:41
Ашық архитектура принципі жеке компьютер бірыңғай ажырамайтын құрылғымен жасалғанын білдіреді...
Ksenia2351
21.02.2022 09:41
1. Что делать, если принтер не обнаружен или не был подключен во установки по USB? 2. Можно выполнять установку с диска из комплекта поставки принтера? 3. Какие имеются типы драйверов...
Магриф
07.05.2020 00:08
Перевести число 11100110011 из 2с/с в 8 с/с, 16 с/с, 253 в 8 с/с перевести в 10 с/с, 1ав в 16 с/с перевести в 10 с/с. 9 класс...
sva1978
11.08.2021 17:30
На калій масою 15,6 г поділили водою який обєм газу що виділивая...
Kirkorow
11.08.2021 17:30
Напишіть структурну формулу 3,3 диметил 1 октен...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,-10,10); a.Println;
a:=a.Shuffle; a.Println;
a:=a.Where(x->x<>a.Max).ToArray;
a.Println;
end.
Пример:
n = 20
8 -9 1 -5 -5 0 9 -4 -7 -4 -3 9 7 -2 4 6 -2 7 -9 -2
-4 -7 -2 8 9 -3 9 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
-4 -7 -2 8 -3 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9