1sanita

14.01.2021 10:59

Информатика

Есть ответ 👍

В таблице приведены запросы к поисковому серверу. Расположите обозначения запросов в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому запросу физкультура & подтягивания & отжимания ответ 1
Выберите...
физкультура ответ 2
Выберите...
физкультура & подтягивания ответ 3
Выберите...
физкультура | фитнесс ответ 4
Выберите...

274

291

Посмотреть ответы 1

Ответы на вопрос:

Дерюгин

Информатика

4,7(93 оценок)

//Обьявляем дополнительные переменные и главный массив, а также два дополнительных - они будут "половинками".

var

a, b, c: array [1..100] of longint;

i, min, n, j, t: longint;

begin

//Читаем количество элементов в нашем массиве.

readln(n);

//Читаем массив.

for i := 1 to n do read(a[i]);

//Заполняем первую "половинку".

for i := 1 to n div 2 do b[i] := a[i];

//Заполняем вторую "половинку". Но раз это уже вторая "половинка" главного массива, то и

//цикл теперь должен начинаться со второй части массива, а заканчиваться уже в его конце.

for i := n div 2 + 1 to n do c[i - n div 2] := a[i];

//Теперь отсортируем первую "половинку" методом выбора. Идея этого метода

//основывается на том, что мы ищем минимальный среди неотсортированных элемент,

//а затем аем его с тем, который стоит сразу после отсортированных.

for i := 1 to (n - 1) div 2 do

begin

min := i;

for j := i + 1 to n div 2 do

if b[min] > b[j] then

min := j;

if min <> i then begin

t := b[i];

b[i] := b[min];

b[min] := t;

end;

//Затем вторую точно также, только стоит обратить внимание на сравнения.

//Так как надо отсортировать по убыванию, то теперь сравнение перед "swap"-ом

//будет другим.

for i := 1 to (n - 1) div 2 do

begin

min := i;

for j := i + 1 to n div 2 do

if c[min] < c[j] then

min := j;

if min <> i then begin

t := c[i];

c[i] := c[min];

c[min] := t;

end;

//А теперь по очереди выводим готовые "половинки", не забывая ставить

//пробел после вывода каждого элемента.

for i := 1 to n div 2 do write(b[i], ' ');

for i := 1 to n - n div 2 do write(c[i], ' ');

end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.