Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Никита256366
04.04.2023 12:00 •
Информатика
Дан массив а(40). упорядочить элементы массива по убыванию. погите написать программу желательно на паскаль abc
Показать ответ
Ответ:
marija01021
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 оценок)
Популярные вопросы: Информатика
Аурика1303
21.12.2020 22:36
Массив из n=20 элементов от -30 до 30. 1) найти сумму отрицательных 2) посчитать, сколько элементов делятся на 5 и не больше 20 3) произведение элементов, которые находятся на чётных...
SkokivaAlina
25.12.2022 19:22
ВЫБРАТЬ (фотоальбом ) (Фигуры ) (SmartArt) (рисунок ) (таблица ) диаграмма ) УМАЛЯЮ...
gleb21717
07.01.2021 02:51
У исполнителя Омега две команды, которым присвоены номера: 1. прибавь b2. умножь на 2(b – неизвестное натуральное число) Выполняя первую из них, Омега увеличивает число на экране...
maxim5251988
30.09.2020 04:50
7. Продолжите предложение. Совокупность всех программ компьютера - это ... 1) операционная система2) программное обеспечение3) прикладные программы (приложени)...
silinadasha
01.12.2020 22:35
НАПИСАТЬ ПРОГРАММУ НА ПИТОНЕ. Вариант 6 Текстовый файл состоит не более чем 10**6 символов арабских цифр (0, 1, ⋯, 9). Определите максимальное количество идущих подряд одинаковых...
katyastrilchuk
03.06.2021 08:57
Исправьте ошибки: Program oshibki; var a, b: integer; x, y: real; begin a := 3 12 := x; b := 2.9; x := 4*(a + y); a := b + x end....
влад2162
03.04.2020 00:53
задачу по инфе на языке PYTHON! import random x = random.randint(1, 10) Преподаватель опрашивает учеников по списку класса в электронном журнале. Однако не все ребята успевают готовиться...
Danil0220
10.07.2022 08:25
По бс схеме составьте программу на паскале...
is835172Alexandr
20.03.2022 19:40
необходима в информатике тест...
Ali0429
22.06.2021 16:36
Предложите свой сценарий для небольшого мультфильма...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.