Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Darina2581
15.01.2023 00:13 •
Информатика
Дан массив а(40). упорядочить элементы массива по убыванию. погите написать программу желательно на паскаль abc
Показать ответ
Ответ:
avomilag95
10.07.2020 11:13
Program asd;
const A=40;
var mas:array [1..A]of integer;
n,i,j,k,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to A do
writeln(i);
n:=1;
writeln('Отсортированный массив:');
while i>n do
for i:=A downto n do
writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
okunevap302
23.05.2022 02:56
1. можно ли добавить текст в изображение в редакторе coreldraw, и как? 2. как создать текстовый блок в форме квадрата со стороной 6см? ?...
Dilnaz200301
16.04.2020 20:32
Сделать таблицу из текста(word)...
Марина2808
30.10.2021 20:33
Написать скрипт, который при нажатии на кнопку Enter (return) создает куб на сцене в координатах 1,2,3. C# Unity...
ксю882
26.04.2020 20:46
Определи, какой объём информации (в битах) сможет передать канал связи, если скорость передачи информации составляет 2 Кбит/с за 29 с. (В ответе запиши только число.)...
EkaterinaLis13
16.01.2021 12:16
Мәтіндік редактор деген не...
Kachmaresghg
15.02.2021 06:33
Графическим редактором называется - ...
stigma70
15.10.2020 05:48
Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран последний элемент с нечетным значением и его индекс pascal...
vinitskay74
16.03.2022 05:40
Что лишнее: число понятие слово термин...
dodmitry
16.03.2022 05:40
:нарисуйте логические схемы для следующих логических выражений x4 & (x1 & x2 & x3 v не x2 & не x3)....
striletsnastya
24.04.2020 20:43
Спиши предложения, раскрывая скобки и расставляя необходимые знаки препинания. 1.парень пошёл вперёд, то указывая, то отыскивая дорогу.(который час) спросил его владимир. 2.пугачёв...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const A=40;
var mas:array [1..A]of integer;
n,i,j,k,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to A do
writeln(i);
n:=1;
writeln('Отсортированный массив:');
while i>n do
for i:=A downto n do
writeln(i);
end.