Сортировка массива

@Iliabobr · Регистрация: 04.11.2009

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

Сортировать массив из 10 элементов в порядке возрастания. Нулевые и отрицательные элементы оставить на своих местах.

@mamedovvms · 04.11.2009, 12:29

Pascal
1
2
3
4
5
6
7
8
for i:=1 to 9 do
 for j:=i+1 to 10 do
   if (a[i]>a[j])and(a[i]>0)and(a[j]>0) then
      begin
         temp:=a[i];
         a[i]:=a[j];
         a[j]:=temp;
      end;

Добавлено через 4 минуты

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
i:=1;
while i<=9 do
   begin
      j:=1;
      while (a[i]>0) and j<=10 do
         begin
            if (a[i]>a[j])and(a[j]>0) then
                begin
                  temp:=a[i];
                  a[i]:=a[j];
                  a[j]:=temp;
               end;
            j:=j+1;
         end;
      i:=i+1;
   end;

а можно так

@кот Бегемот · 04.11.2009, 12:58

Скобки забыли в while

Добавлено через 11 минут
Во втором варианте последний элемент не отсортировался

@mamedovvms · 04.11.2009, 14:26

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

Скобки забыли в while

да есть такой косяк

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

Во втором варианте последний элемент не отсортировался

а вы проверяли? если да то какое условие вы вводили?

@кот Бегемот · 04.11.2009, 14:33

Да, я запустил, только скобки поставил, остальное без изменения. Все элементы, кроме последнего, встали на свои места. А первый вариант программы чётко работает.

@mamedovvms · 04.11.2009, 14:41

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
i:=1;
while i<=9 do
 begin
 j:=i+1;
 while (a[i]>0) and (j<=10) do
 begin
 if (a[i]>a[j])and(a[j]>0) then
 begin
 temp:=a[i];
 a[i]:=a[j];
 a[j]:=temp;
 end;
 j:=j+1;
 end;
 i:=i+1;
 end;

Добавлено через 5 минут
признаю свою ошибку , вот где она была

Pascal
1
j:=1;

а надо

Pascal
1
j:=i+1;

@кот Бегемот · 04.11.2009, 14:44

Теперь запустил - всё работает, но
скобки всё равно нужны

Pascal
1
while (a[i]>0) and (j<=10) do

Меня просто решение заинтересовало, я его сам не нашел

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@Iliabobr 3 / 3 / 3 Регистрация: 04.11.2009 Сообщений: 98

	Сортировка массива 04.11.2009, 12:10. Показов 583. Ответов 6 Метки нет (Все метки) Сортировать массив из 10 элементов в порядке возрастания. Нулевые и отрицательные элементы оставить на своих местах. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	04.11.2009, 12:58
	Скобки забыли в while Добавлено через 11 минут Во втором варианте последний элемент не отсортировался 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	04.11.2009, 14:33
	Да, я запустил, только скобки поставил, остальное без изменения. Все элементы, кроме последнего, встали на свои места. А первый вариант программы чётко работает. 0