Войти
Регистрация
Спроси ai-bota
николаj
22.12.2020 15:49
Составить программу замены местами в массиве b(n) второго и предпоследнего элемента, а так же сортировки этого массива по возрастанию.
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Gaziz05
10.02.2022 22:36
Дана матрица А(nxn). Написать программу нахождения матрицы Ат*А, где Ат - транспонированная матрица написать программу на С++, заранее...
moranikatya
11.05.2023 13:52
Маркированный список следует использовать при составления алгоритма действий...
dianasadykovaaaa
21.03.2020 12:24
Написать программу(на abc pascal), которая находит сумму четных цифр в введенном с клавиатуры натуральном числе меньше 30000)...
sadlyuda
25.10.2020 11:29
Люди кто шарит в Excel сделайте таблицу вообще не понимаю ничего.. ...
дана34657
12.10.2020 12:19
Напишите программу, которая в последовательности натуралных чисел определяет сумму чисел, кратных 7. Программа получает на вход кол-во чисел в последовательности,...
ilyasovazalina
22.08.2022 03:51
4) какой из видов платного хостинга предоставляет клиенту самые широкие полномочия для управления сайтом? 5) Укажите верные утверждения: 1. Разница между платным...
ViNtIk4312
05.04.2021 19:59
Вычислите, какое количество информации в Килобайтах содержит один кадр фильма, если он имеет разрешение 800х600 пикселей и каждый пиксель имеет один из 65 536 цветов...
Анель1342
21.11.2022 07:16
Знайти і надрукувати всі трицифрові числа сума кубів яких рівна самому числу Procedure TForm1.Button1Click(Sender: TObject); var a,b,c,i:integer; Begin ListBox1.Clear;...
faa7
27.08.2021 07:06
В соответствие с кодовой таблицей ASCII каждую латинскую букву можно закодировать десятичным числом. Слово file кодируется как 102105108101. Какому слову соответствует...
akakkakksksak
24.11.2021 07:11
Считая, что каждый символ кодируется в кодировке Unicode, оцените информационный объём следующей фразы: В шести литрах 6000 миллилитров. а) 1024 байта б) 1024 бита...
Ответ:
MrCony
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота