Сортировка элементов массива

@alina333 · Регистрация: 10.11.2016

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

Объясните пожалуйста )) Задача: Заполнить массив из 10 чисел, переставить элементы от большего к меньшему.
Родилась такая программа:
const
n=10;
var
m: array [1..n] of integer;
b:integer;
c, i:byte;
begin
for i:=1 to n do
begin
m[i]:=random(100)-50;
write(m[i]:4)//вывод элементов массива на экран
end;
for i:=2 to n-1 do
for c:=1 to n-1 do
if m[c]<m[c+1] then
begin
b:= m[c]; m[c]:=m[c+1]; m[c+1]:=b;
end;
writeln;
for i:=1 to n do write(m[i]:4);
end.
Изначально во втором цикле было: for i:=1 to n-1. Но учитель написала, что количество проверок можно сократить. Поэтому интуитивно было переписано for i:=2 to n-1. А понять почему не могу (( Программа в обоих вариантах работает корректно.

@Tosse · 11.12.2016, 11:07

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
n=10;
var
m: array [1..n] of integer;
b:integer;
c, i:byte;
begin
for i:=1 to n do
begin
m[i]:=random(100)-50;
write(m[i]:4)//вывод элементов массива на экран
end;
for i:=1 to n-1 do
for c:=1 to n-i do
if m[c]<m[c+1] then
begin
b:= m[c]; m[c]:=m[c+1]; m[c+1]:=b;
end;
writeln;
for i:=1 to n do write(m[i]:4);
end.

@alina333 · 11.12.2016, 12:41 **[ТС]**

Tosse, Спасибо! Ваш вариант лучше, и он мне понятней

) Остался только непонятным принцип работы цикла в цикле в моем варианте

( Почему и при i=1 и при i=2 программа работает правильно?

@PiKa_PeR · 11.12.2016, 13:26

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
mas:array [1..100] of int64;
 N, i, o, g, j, p, y: int64;
   
begin
readln (o);
for i:=1 to o do begin
read(n);
mas[i]:=n;
end;
for g:=1 to o-1 do
for j:=1 to o-g do 
if mas[j]>mas[j+1] then begin
p:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=p;
end;
write(mas);
end.

@Tosse · 11.12.2016, 15:31

Не во всех случаях, если максимальный элемент последний, то он "не успевает" сместиться на первое место.

@alina333 · 11.12.2016, 23:24 **[ТС]**

Tosse, Спасибо! Поняла так, что зависит от поставленной задачи, поэтому с этим лучше экспериментировать осознанно

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника 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. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Сортировка элементов массива

Решение

Решение

@alina333 2 / 2 / 0 Регистрация: 10.11.2016 Сообщений: 9

	Сортировка элементов массива 11.12.2016, 00:36. Показов 4117. Ответов 5 Метки нет (Все метки) Объясните пожалуйста )) Задача: Заполнить массив из 10 чисел, переставить элементы от большего к меньшему. Родилась такая программа: const n=10; var m: array [1..n] of integer; b:integer; c, i:byte; begin for i:=1 to n do begin m[i]:=random(100)-50; write(m[i]:4)//вывод элементов массива на экран end; for i:=2 to n-1 do for c:=1 to n-1 do if m[c]<m[c+1] then begin b:= m[c]; m[c]:=m[c+1]; m[c+1]:=b; end; writeln; for i:=1 to n do write(m[i]:4); end. Изначально во втором цикле было: for i:=1 to n-1. Но учитель написала, что количество проверок можно сократить. Поэтому интуитивно было переписано for i:=2 to n-1. А понять почему не могу (( Программа в обоих вариантах работает корректно. 0

@alina333 2 / 2 / 0 Регистрация: 10.11.2016 Сообщений: 9
	11.12.2016, 12:41 [ТС]
	Tosse, Спасибо! Ваш вариант лучше, и он мне понятней ) Остался только непонятным принцип работы цикла в цикле в моем варианте( Почему и при i=1 и при i=2 программа работает правильно? 0

@Tosse 57 / 57 / 114 Регистрация: 09.12.2016 Сообщений: 143
	11.12.2016, 15:31
	Сообщение было отмечено alina333 как решение Решение Не во всех случаях, если максимальный элемент последний, то он "не успевает" сместиться на первое место. 0

@alina333 2 / 2 / 0 Регистрация: 10.11.2016 Сообщений: 9
	11.12.2016, 23:24 [ТС]
	Tosse, Спасибо! Поняла так, что зависит от поставленной задачи, поэтому с этим лучше экспериментировать осознанно 0