Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
doroxova04
27.07.2020 08:46 •
Информатика
Составить программу замены местами в массиве b(n) второго и предпоследнего элемента, а так же сортировки этого массива по возрастанию.
Показать ответ
Ответ:
asflower
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 оценок)
Популярные вопросы: Информатика
LERa007123
22.08.2020 02:00
Фотографию размером 1024 x 512 пикселей сохранили в виде несжатого файла. Для хранения информации о цвете каждого пикселя использовали 2 байта. Определите размер получившегося файла...
Tokuz
17.10.2022 20:12
Изменения в СОР1. Изменить внешний вид птичек (перекрасить их еще раз).2. Сделать так, чтобы птички вылетали из центра экрана в противоположные стороны.3. После перехода к фону Ролик,...
samininav1
10.04.2021 17:29
Построить таблицу истинности для формулы...
maksbaduk
05.07.2022 00:02
Какое значение переменной s будет выведено на экран в результате выполнения следующей программы: s=0 for i in range (10): s=s*i print (s)...
proskurina773
30.05.2023 14:02
80 НЕ ПОЛУЧИЛОСЬ ПОТОМ ВАМ ПЕРЕКИНУ ЕЩЕ...
Alenasol1
08.04.2022 19:06
Якими елементами характеризується реляційна база даних? a вузли б записи в рівні д поля...
Микаэла111
17.02.2020 15:39
Запишите номер схевующей таблице.е номер схемы (взвешенного графа), соответст-2аD2)Aс12Bответ: •...
aimnura73
23.08.2021 20:30
акое значение переменной s будет выведено на экран в результате выполнения следующей программы: s=0 for i in range (10): s=s*i print (s)...
апркаерн
14.10.2020 19:04
1. Яка різниця між роутером комуніатором та маршрутизатором? 2.Що таке DNS, чи може існувати інтернет без нього? 3. HTML та CSS, чи можуть існувати сучасні сайти без них? Що це? 4....
IG77
19.06.2021 00:46
Написанное письмо состоит из 79 символов какой размер письма в битах и байтах...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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