Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mihscka0605
21.10.2022 10:34 •
Информатика
Задан массив b, размерностью 10 элементов. заполните его и упорядочить элементы по возрастанию.(программой)
Показать ответ
Ответ:
OnAcHaYa2o2
05.10.2020 04:08
Const n=10;
var a: array [1..n] of integer;
j,k,i,p,f:integer;
begin
for i:=1 to n do
a[i]:=random(1,10);
writeln(a);
for j:=1 to n do
for i:=1 to n-j do
begin
if a[i]>a[i+1] then
begin
swap(a[i+1],a[i]);
end;
end;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
raia0202
25.07.2020 08:09
1) Сколько символов содержит сообщение, записанное с символьного алфавита, если объем его составил 120 бит? 2) Объем сообщения, содержащего 20 символов, составил 100...
Krichikis
09.06.2023 06:51
Никак не могу сделать эту задачу иногда идет не пополану, сам учитель сказал что я все копии которые будут во 2ой таблице должны быть удалены, а кол-во книг с удаленных...
ylau2006g
24.07.2021 16:18
Сколько кбайт, Наступила золотая осень!...
alinkalapko049
24.07.2021 16:18
от деления выполняет знак %чтобы избавиться от младшего уже учтенного уже число следует разделить нацело на 10 деление нацело обозначается двумя слэшами//...
supereleo2018
26.03.2023 12:08
За итоговый тест 10002 учеников получили оценку 5, 10102 учеников получили оценку 4, 1112 учеников получили оценку 3, один ученик не справился с работой и 102 отсутствовало...
Фуфик0372
31.07.2022 18:50
Найти скорость передачи данных, если известно, что некий файл размером 5 Мб и звуковой файл вместе были переданы за 1 минуту. Параметры звукового файла: система звучания...
Римская1
23.02.2022 06:12
Я не могу решить Оно 10Не знаю может кто-нибудь сталкивался с этимМне нужно написать программу а как не знаю...
miloft
31.03.2023 21:51
Типы сред передачи данных...
okru24057p00ymy
31.03.2023 21:51
Соотнеси десятичные числа с их двоичными эквивалентами....
АсяГордиенко
31.03.2023 21:51
1. Являются ли высказываниями следующие предложения? а) Радуга синего цвета.б) Мойте руки перед едой!в) На каком дереве сидит ворона после дождя?г) Осенью дни становятся...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array [1..n] of integer;
j,k,i,p,f:integer;
begin
for i:=1 to n do
a[i]:=random(1,10);
writeln(a);
for j:=1 to n do
for i:=1 to n-j do
begin
if a[i]>a[i+1] then
begin
swap(a[i+1],a[i]);
end;
end;
writeln(a);
end.