Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
2005kolzaarina2
02.07.2020 16:39 •
Информатика
Составить программу замены местами в массиве b(n) второго и предпоследнего элемента, а так же сортировки этого массива по возрастанию.
Ответ:
Appledog
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 оценок)
Популярные вопросы: Информатика
Даниссиммо1
29.07.2021 04:54
Написать программу в паскале, в которой нужно ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом....
JEJH
26.07.2021 17:44
Легкий вопрос для специалистов по Информатика ( ) Выберите правильный ответ. На рисунке представлена блок-схема… Изображение создано при MS Word с неполным ветвлением с ветвлением...
XefforyGR
10.07.2022 08:34
Для каждого из указанных подмножеств назовите множество, с которым оно связано отношением является разновидностью (назовите общее имя, отвечающее на вопрос Что это такое?): а)...
skeych
18.04.2020 17:29
Какие фалы можно передавать с электронной почты? текстовые файлызвуковые файлывидеофайлыфайлы презентаций...
rolik8
03.05.2023 19:17
Визначити яка конфігурації у вашого комп ютера?...
1KoTObOpMoT1
19.01.2020 08:48
Синоптики измеряют температуру воздуха ежедневно в течение четырех недель и записывают результаты измерений в таблицу. -12 -16 -26 -20 -16 -18 -25 -26 -29 -32 -23 -30 -21 -23 -15...
avanesyan20011
19.01.2020 08:48
Решить хотя бы что-то.. №1 в программе используется одномерный целочисленный массив а с индексами от 0 до 9. ниже представлен фрагмент программы, в котором значения элементов сначала...
muradir1102
04.11.2020 22:35
Поясніть поширення чаю какао-бобів у світі...
alinkamalina04
08.09.2021 22:29
Решите задачи по химии они на фото...
vitaska1971oz3tq3
19.04.2023 13:02
:))) Поставьте глагол в необходимую временную форму: the Present, Past или Future Continuous Tenses. 1. It … (rain) all this week. 2. I … (make) plans for summer all the evening...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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