Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
тусикк
21.12.2021 12:52 •
Информатика
Сгенерировать массив из n различных случайных чисел. используя функцию shuffle перемешать элементы массива. удалить максимальный элемент массива (все,если их несколько) паскаль
Показать ответ
Ответ:
beaka988
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 оценок)
Популярные вопросы: Информатика
superbest
13.02.2020 20:37
Какие языки в настоящее время являются самыми распространёнными в мире?...
lycena
13.02.2020 20:37
Запишите значение переменной s, полученное в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык бейсик паскаль...
gmailua
02.05.2023 06:43
Какое число нужно вписать в ячейку нижнего ряда, чтобы сохранить закономерность? 1100100 1010010 1110110 10010101 101110 1101001 110101 10111000 1011011 1001000 1111011...
хорошистка553
22.02.2020 01:06
2. Объясните, почему векторные изображения легко маштабируются без потери качества...
msfokkck
05.03.2022 08:07
130-секундная стереозапись, выполненная с частотой дискретизации 1200 гц, с качеством 28 бит на канал была сохранена в формате mp3, размер которого оказался равным 456000...
Vladlena151215
03.04.2021 18:58
С++ ! вася работает программистом и получает 50$ за каждые 100 строк кода. за каждое третье опоздание васю штрафуют на 20$. реализовать меню: - пользователь вводит желаемый...
iluza3
23.02.2020 02:44
Пароль от почтового ящика в виде четырехзначного числа вася зашифровал так: цифры,занимающие четные разряды(нумерация разрядов ведется справа налево начиная с нуля),циклически...
Polinkamalina2017
23.02.2020 02:44
Как сделать прозрачный фон у png в sai?...
Мамаева2007
29.01.2022 11:12
Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел. ниже рекомендуемый вид экрана во время работы программы. таблица квадратов....
amina51205
26.03.2022 22:16
Сумма двух чисел в программе записывается как: a. let a+b b. sum a+b c. s: =a+b d. a+b: =s e. let s: =a+b...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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