Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mictermixa1
22.08.2020 23:07 •
Информатика
Pascalabcnet : ввести и упорядочить последовательность из n натуральных чисел таким об-разом, чтобы она возрастала до середины, а затем убывала.
Показать ответ
Ответ:
кисуня208
08.10.2020 08:05
// PascalABC.NET 3.3
begin
var n:=ReadInteger;
var a:=ArrRandom(n,10,90); a.Println;
a:=a[0:n div 2].Sorted.ToArray+a[n div 2:n].SortedDescending.ToArray;
a.Println;
end.
Пример:
10
82 83 53 79 31 34 24 66 47 44
31 53 79 82 83 66 47 44 34 24
0,0
(0 оценок)
Ответ:
linnik4Platon
08.10.2020 08:05
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,60); a.Println;
(a[:n div 2].OrderBy(t->t)+a[n div 2:].OrderByDescending(t->t)).Println
end.
Пример
n= 10
53 -39 49 22 -18 40 -40 -9 -16 0
-39 -18 22 49 53 40 0 -9 -16 -40
0,0
(0 оценок)
Популярные вопросы: Информатика
olenkadergunov
28.04.2023 20:13
Даны действительные числа x, y. если x и y отрицательны, то каждое значение заменить модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5;...
1526962
28.04.2023 20:13
Какие данные можно передавать из сети мобильной телефонной связи в компьютерную сеть интернет? из интернета в сеть мобильной связи?...
Inpeakfhdh
29.01.2021 07:06
Дан фрагмент таблицы «Товар на складе». Введи данные в MS Excel и вычисли стоимость всего товара на складе. A B 1 Товар Цена за 1 шт. (руб.) 2 Пальто 6112,1 3 Куртка...
Kla05
05.01.2021 18:01
Какое значение появится в ячейке F2 (в соответствии с внесенной в эту ячейку формулой)?...
valeriaasoskova
13.07.2021 06:33
Дана строка оценок учащегося за 10 уроков Информатики. Определить получал ученик оценку «» в этой четверти, и если получал, то сколько раз. Удалите здесь содержащий...
krutikovaelizaozax2f
20.01.2020 03:28
Найти сумму всех элементов расположенных выше главной диагонали...
katirina19
27.03.2020 03:20
Найти сумму: s=2/(3*3)-4/(5*9)+6/(7*27)-7/(9*81)+10/(11*243) формат вывода данных. s=1,157...
tnata007
27.03.2020 03:20
Ввести с клавиатуры двумерный массив 10х10.вычислить сумму всех элементов массива и вывести массив и сумму на экран....
geraveselov20
05.08.2020 13:52
Компьютерлік тестілеу қалай жүргізіледі...
артлжьт
24.09.2022 13:38
Б.Соқпақбаевтың өмірімен оқып танысып,жазушыға оқырман ретінде хат жазыңдар. 86-87 беттерді оқу помагите ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var n:=ReadInteger;
var a:=ArrRandom(n,10,90); a.Println;
a:=a[0:n div 2].Sorted.ToArray+a[n div 2:n].SortedDescending.ToArray;
a.Println;
end.
Пример:
10
82 83 53 79 31 34 24 66 47 44
31 53 79 82 83 66 47 44 34 24
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,60); a.Println;
(a[:n div 2].OrderBy(t->t)+a[n div 2:].OrderByDescending(t->t)).Println
end.
Пример
n= 10
53 -39 49 22 -18 40 -40 -9 -16 0
-39 -18 22 49 53 40 0 -9 -16 -40