Необходимо выполнить условия поставленные задачей (сортировка массивов)

@Pushkinmazila · Регистрация: 26.12.2015

Студворк — интернет-сервис помощи студентам

1-
Одномерный массив размером 2м+1,где М натуральное число,заполнен Случайными числами на промежутке (-10,10).Найдите в массиве медиану,используя сортировку методом пузырька.
2-
Отсортируйте по возрастанию одномерный целочисленный массив размера n,заданный случайными числами на промежутке (-10,10),используя сортировку вставками.Выведите исходный и преобразованный массив.

Основная проблема - блок схема которая необходима (если сможете представить блок схему я буду осень рад)
Нельзя использовать другие методы сортировки массивов (Только те которые указаны в условии)

@Puporev · 31.12.2015, 15:19

Сообщение от Pushkinmazila

используя сортировку методом пузырька.

Это не проблема, легко найдете в поиске.

Pascal
1
writeln('Медиана=',a[m+1])

@Pushkinmazila · 31.12.2015, 16:01 **[ТС]**

Сообщение от Puporev

Это не проблема

Тут то я согласен а вот блок схемы...

Добавлено через 42 секунды

Сообщение от Puporev

Это не проблема

Да и не мог бы ты полностью скинуть прогру

@Puporev · 31.12.2015, 16:23

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
const max=50;
var m,i,k,p,a:integer;
    x:array[1..2*max+1]of integer;
begin
randomize;
repeat
write('Введите размер половины массива от 1 до ',max,' m=');
readln(m);
until m in [1..max];
for i:=1 to 2*m+1 do
 begin
  x[i]:=-9+random(19);
  write(x[i]:4);
 end;
writeln;
for k:=1 to 2*m do
for i:=1 to 2*m+1-k do
If x[i]>x[i+1] then
 begin
  a:=x[i];
  x[i]:=x[i+1];
  x[i+1]:=a
 end;
writeln('Отсортированный массив');
for i:=1 to 2*m+1 do
write(x[i]:4);
writeln;
writeln('Медиана=',x[m+1]);
end.

@Puporev · 31.12.2015, 16:25

Добавил randomize;

@Puporev · 31.12.2015, 16:29

2.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
const nmax=100;
var a:array[1..max] of integer;
    n,i,j:byte;
    x:integer;
begin
randomize;
repeat
write('Размер массива до ',max,' n=');
readln(n);
until n in [1..max];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-9+random(19);
  write(a[i]:4);
 end;
writeln;
for i:=2 to n do
 begin
  x:=a[i];
  j:=i-1;
  while (j>=1) and (a[j]>x) do
   begin
    a[j+1]:=a[j];
    j:=j-1;
   end;
  a[j+1]:=x;
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i]:4);
end.

@Pushkinmazila · 31.12.2015, 18:43 **[ТС]**

Сообщение от Puporev

легко

Спасибо

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Pushkinmazila 2 / 2 / 0 Регистрация: 26.12.2015 Сообщений: 79

	Необходимо выполнить условия поставленные задачей (сортировка массивов) 31.12.2015, 15:00. Показов 1233. Ответов 6 Метки нет (Все метки) 1- Одномерный массив размером 2м+1,где М натуральное число,заполнен Случайными числами на промежутке (-10,10).Найдите в массиве медиану,используя сортировку методом пузырька. 2- Отсортируйте по возрастанию одномерный целочисленный массив размера n,заданный случайными числами на промежутке (-10,10),используя сортировку вставками.Выведите исходный и преобразованный массив. Основная проблема - блок схема которая необходима (если сможете представить блок схему я буду осень рад) Нельзя использовать другие методы сортировки массивов (Только те которые указаны в условии) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	31.12.2015, 16:25
	Добавил randomize; 0

Необходимо выполнить условия поставленные задачей (сортировка массивов)

Решение

Решение