Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
pliza1706
21.08.2021 22:30 •
Информатика
Дан целочисленный массив а(). отсортировать массив по убыванию,начиная с максимального элемента. паскаль.
Показать ответ
Ответ:
Elenakurdoglo
02.10.2020 05:13
Readln(n);
for i := 1 to n do
read(a[i]);
for i := 1 to n - 1 do
for j := 1 to n - 1 do
if (a[i] < a[i + 1]) then
begin
b := a[i];
a[i] := a[i + 1];
a[i + 1] := b;
end;
for i := 1 to n do
write(a[i],' ');
0,0
(0 оценок)
Популярные вопросы: Информатика
5678998765
08.01.2022 10:12
СДЕЛАТЬ ТАБЛИЧКУ , НЕ МОГУ ПОНЯТЬ КАК ДЕЛАТЬ ФОРМУЛУ В ПУНКТЕ 4...
СВСЛ1
04.04.2021 16:45
2. Организовать одномерный массив А{2, 4, 8, …, 1024}. паскаль...
glushcovapolia
07.03.2023 14:13
Постройте трассировочную таблицу для алгоритма вычисления суммы чисел от 1 до 4...
Поля34232
04.10.2022 08:53
это продолжение : 8)Одно ведро угля подняли на четвёртый этаж дома и сожгли. Во сколько раз больше выделится энергии, если уголь сжечь на первом этаже?А) В 4 разаВ)В 2 разаС)В...
mrhack711ozvry4
04.10.2022 08:53
ПРАВИЛЬНО БУДУ ОЧЕНЬ БЛАГОДАРНА ЗА ОТВЕТ...
Apelsinka032
10.11.2020 13:47
Написать ОРИГИНАЛЬНОЕ письмо другу о походе в кино на Английском. Вот что должно быть в тексте: Скажите с кем и на какой фильм вы ходили Выскажи свое мнение о фильме Что...
modernteenager1
10.11.2020 13:47
Слово из 8 букв на тему води суходолу північної америки...
нурбо1
25.01.2021 19:51
В 9-й сказке М.Горького рассказывается о...
диди65
21.09.2021 16:26
Написать уравнение окружности с диаметром ab, если a(-3,0) b(1,-3)...
sileeet
21.09.2021 16:26
с английским! Rewrite the following questions in the passive voice....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
for i := 1 to n do
read(a[i]);
for i := 1 to n - 1 do
for j := 1 to n - 1 do
if (a[i] < a[i + 1]) then
begin
b := a[i];
a[i] := a[i + 1];
a[i + 1] := b;
end;
for i := 1 to n do
write(a[i],' ');