Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Arina8411
23.04.2023 00:52 •
Информатика
Напишите программу для паскаля для перестановки максимального и минимального по значению элементов массива. значения длины массива вводятся с клавиатуры
Показать ответ
Ответ:
RageTeenage
26.08.2020 20:09
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Swap(a[a.IndexMin],a[a.IndexMax]); a.Println
end.
Пример
n=13
21 -9 1 3 2 -31 24 -14 44 49 -30 -45 -1
21 -9 1 3 2 -31 24 -14 44 -45 -30 49 -1
0,0
(0 оценок)
Популярные вопросы: Информатика
фскорбин
02.10.2022 20:18
Sos ! используют дерево хаффмена декодируйте следующие слова и определите сколько байтов занимает текст и кодировка ascii 0111100010011001011010010...
kNoPoCHkA96
29.09.2022 03:29
Для того щоб бути виконаною комп ютером, програма, що описана мовоюпрограмування, має бути перетворена на послідовність команд, що мають виглядкомбінації чисел п...
290720031
24.09.2022 09:34
sos ! ) используя метод сжатия хаффмена закодируйте следующие слова и определите процент сжатия admin...
hasanovratmir3
21.04.2021 14:56
Напечатать таблицу с шагом 5° от 0° до 60°.х, градх, радsin(x)cos(x)tan(x)...
seilkhan2006
21.04.2021 14:56
Кот матроскин и пёс шарик нашли клад, который состоял из 5 одинаковых монет. в коробке, в которой лежали монеты, друзья обнаружили записку: . дядя фёдор своим друзьям...
vhjklv
29.07.2022 03:45
не знаю, как делать 1 и 2 задания...
Nipep
20.06.2020 04:37
вспомните 10 специальных слов относящихся к вашей будущей профессии объясните их значение составьте ТМ...
NeZnAYkA00000000
18.11.2020 20:52
У двох партіях k1 і k2 відсоток доброякісних виробів відповідно. Наудачу набирають по одному виробу з кожної партії. Яка ймовірність виявити серед них: а) хоча б одне...
холера678
21.08.2022 05:36
Обчислити використовуючи властивості степеня...
Ilyauhdhbtxskr
17.10.2020 19:02
Вопросы: Покровительница женщин и женской красоты. Страшное чудовище с телом гиппопотама и льва и пастью крокодила. Богиня правды в Древнем Египте. Живой бог в представлении...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Swap(a[a.IndexMin],a[a.IndexMax]); a.Println
end.
Пример
n=13
21 -9 1 3 2 -31 24 -14 44 49 -30 -45 -1
21 -9 1 3 2 -31 24 -14 44 -45 -30 49 -1