Andrey500500500

14.09.2022 14:05

Информатика

Есть ответ 👍

Напишите сообщение по информатике на тему древние текстовые информации

101

480

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

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

йАнанасик11

Информатика

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

Папирус. мы обязаны изобретением бумаги египетскому папирусу. *черные чернила. изобретением чернил мы также обязаны древнему египту. для их изготовления египтяне смешивали сажу, растительную смолу и пчелиный воск. чтобы сделать чернила разных цветов, они заменяли сажу с другим органическим материалом. например, они использовали охру вместо сажи, чтобы сделать чернила красными * плуг. изобретение плуга не только коренным образом развило сельское хозяйство египетской общины, но модифицированная версия до сих пор используются фермерами отсталых стран, которые не могут себе позволить купить автоматические комбайны. * часы. египтяне научили мир определять время суток, придумав часы. они изобрели два типа часов: солнечные и водяные часы. солнечные часы - это были обелиски на которых движущиеся тени в течение дня египтянам определять время дня.

Дерюгин

Информатика

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 также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.