1. "ты выучил таблицу умножения? " - спросил учитель петю. "нет", - ответил он. сколько информации содержит ответ? выберите один из 3 вариантов ответа: 1) 1 бит 2) 0 бит 3) 2 бита
Ответы на вопрос:
отдел +;
использует из "";
пост
длинамассива = 100;
пер
массивы: ряд 3 из ряд длинамассива из цел;
сч1, сч2: узкцел;
вставкой(ряд+: ряд из цел);
пер
число: цел;
познеуп: цел;
позвставки: цел;
поз: цел;
указ
от познеуп: =1 до размер(ряд)-1 вып
число: =ряд[познеуп];
позвставки: =0;
пока число < ряд[позвставки] вып
увеличить(позвставки)
кон;
от поз: =познеуп-1 до позвставки по -1 вып
ряд[поз+1]: =ряд[поз]
кон;
ряд[позвставки]: =число
кон
кон вставкой;
выбором(ряд+: ряд из цел);
пер
позвставки: цел;
познеуп: цел;
число: цел;
поз: цел;
указ
от познеуп: =0 до размер(ряд)-2 вып
позвставки: =познеуп;
число: =ряд[познеуп];
от поз: =познеуп+1 до размер(ряд)-1 вып
если число < ряд[поз] то
число: =ряд[поз];
позвставки: =поз
кон
кон;
ряд[позвставки]: =ряд[познеуп];
ряд[познеуп]: =число
кон
кон выбором;
обменом(ряд+: ряд из цел);
пер
число: цел;
познеуп: цел;
позобмена: цел;
указ
от познеуп: =0 до размер(ряд)-2 вып
от позобмена: =размер(ряд)-2 до познеуп по -1 вып
если ряд[позобмена] < ряд[позобмена+1] то
число: =ряд[позобмена];
ряд[позобмена]: =ряд[позобмена+1];
ряд[позобмена+1]: =число
кон
кон
кон
кон обменом;
указ
от сч1 : = 0 до 2 вып
от сч2 : = 0 до длинамассива - 1 вып
массивы[сч1, сч2] : = узк(вширцел(целчасть(.случ() * 21) - 20 * 2))
кон
кон;
обменом(массивы[0]);
выбором(массивы[1]);
вставкой(массивы[2])
кон .
Популярно: Информатика
-
Змей1925.04.2023 07:35
-
какаха10505.01.2020 07:01
-
привет89725.04.2022 19:36
-
натик201716.01.2022 10:32
-
divaevaadila07.03.2022 00:49
-
Анастасия18618616.11.2022 10:01
-
Pooster14.02.2023 23:37
-
lenakors199722.12.2021 17:54
-
AnnyMay262916.07.2021 12:22
-
ОлегВолгин22821.07.2022 05:51