Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gjdhxhdbc
30.03.2020 16:43 •
Информатика
Составить программу замены местами в массиве b(n) второго и предпоследнего элемента, а так же сортировки этого массива по возрастанию.
Показать ответ
Ответ:
kwasmarianna
07.08.2020 16:56
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var n:=ReadInteger('n=');
var b:=ArrRandom(n,10,99); b.Println;
Swap(b[1],b[n-2]); b.Println;
b:=b.Sorted.ToArray; b.Println
end.
Тестовое решение
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79
0,0
(0 оценок)
Популярные вопросы: Информатика
vasyapupkin121212
15.06.2021 10:01
Основной любой телекомуникационной сети, которая дает единые возможности для всех пользователей, являются а) ресурсы б) каналы в) протоколы г) другой ответ...
Charafoxcoteyca34
15.06.2021 10:01
Нужны ответы на 4 вопроса (контрольные вопросы на лабор. роб.) 1) какую компьютерную модель называют имитационной + примеры 2) какая комп. модель называется графической? + примеры...
стефания31
04.09.2021 08:13
Втаблице запросы к поисковому серверу. расположите обозначения запросов в порядке убывания количества страниц, которые найдет поисковой сервер по каждому запросу. для обозначения...
iakatya
13.08.2020 12:39
Какой объем видеопамяти необходим для хранения двух страниц изображения при условии, что разрешающая дисплея равна 640 х 350 пикселей, а количество используемых цветов - 16?...
соыварщ
07.07.2021 22:21
Определить какое количество страниц займёт текст, если всего в памяти компьютера он занимает 1 кбайт. в тексте используется 16 символьный алфавит. на одной странице размещается 1024...
ыллылыов
07.07.2021 22:21
1.запишите полный путь файлу readme.txt, если известно, что он хранится папке help, вложенной папку home, находящейся на диске d: ....
Maiss1
09.07.2022 09:04
1) груз массой 50 кг свободно падает из состояния покоя в течение 10 с. какую работу совершает при этом сила тяжести? 2) какова скорость отдачи ружья массой 4 кг при вылете из него...
anastasiaselina
09.07.2022 09:04
Назовите часть речи к которой принадлежит слово очаровательных....
касымжомарттокаев1
09.07.2022 09:04
Кто-то узнал о трёх изобретениях: одно из них 35% топлива, другое – 40%, третье – 25%. этот человек решил применить все три изобретения сразу, предполагая 35% + 40% + 25% = 100%...
Мамиами
09.07.2022 09:04
Из пункта а одновременно в противоположных направлениях выехали два автомобиля.скорость одного автомобиля 75 км/ч.найдите скорость второго автомобиля, если через 5 часов расстояние...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var n:=ReadInteger('n=');
var b:=ArrRandom(n,10,99); b.Println;
Swap(b[1],b[n-2]); b.Println;
b:=b.Sorted.ToArray; b.Println
end.
Тестовое решение
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79