Массив. Отсортировать его методом выделения минимального элемента в порядке убывания

@dimitrijiyul · Регистрация: 06.05.2012

Дан массив натуральных чисел А [1..n]. Отсортировать их методом выделения минимального элемента в порядке убывания. Вычислить среднее арифметическое четных чисел. Вывести на экран отсортированный массив и вычисленное значение.
Заранее большое спасибо!

go · 06.05.2012, 22:12

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

Отсортировать их методом выделения минимального элемента в порядке убывания.

Ну вот же она http://ru.wikipedia.org/wiki/%... 0%BE%D0%BC

@dimitrijiyul · 07.05.2012, 09:54 **[ТС]**

А можно написать текст самой программы к этой задаче, плиз!

@morgan57 · 07.05.2012, 13:05

Pascal

procedure Selekt(var item: DataArray; count:integer);
       var
         i, j, k: integer;
         x: DataItem;
       begin
         for i := i to count-1 do
         begin
           k := i;
           x := item[i];
           for j := i+1 to count do { найти элемент с наименьшим
                     значением }
           if item[j]<x then
           begin
               k := j;
               x := item[j];
             end;
           item[k] := item[i];  { обмен }
           item[i] := x;
         end;
     end;
     { конец сортировки выбором  }

процедура сортировки выбором. 2 минуты поиска в гугле

go · 07.05.2012, 22:22

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

2 минуты поиска в гугле

Что и требовалось доказать.

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

x := item[i];

Советую хранить не сам элемент, а его значение.

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

item[k] := item[i]; *{ обмен }
* * * * * *item[i] := x;

Вот здесь добавить проверку, для меньшего числа обменов.
Все это очень сильно оптимизирует, и без того не оптимизированную сортировку.

@dimitrijiyul · 14.05.2012, 14:15 **[ТС]**

А текст программы полностью к этой задаче можно? Плиз, скиньте кто-нибудь, люди добрые)

@dimitrijiyul 0 / 0 / 0 Регистрация: 06.05.2012 Сообщений: 8
		1
	Массив. Отсортировать его методом выделения минимального элемента в порядке убывания 06.05.2012, 20:30. Показов 2728. Ответов 5 Метки нет (Все метки) Дан массив натуральных чисел А [1..n]. Отсортировать их методом выделения минимального элемента в порядке убывания. Вычислить среднее арифметическое четных чисел. Вывести на экран отсортированный массив и вычисленное значение. Заранее большое спасибо! 0

go 3646 / 1378 / 243 Регистрация: 16.04.2009 Сообщений: 4,526
	06.05.2012, 22:12	2
	Сообщение от dimitrijiyul Отсортировать их методом выделения минимального элемента в порядке убывания. Ну вот же она http://ru.wikipedia.org/wiki/%... 0%BE%D0%BC 0

@dimitrijiyul 0 / 0 / 0 Регистрация: 06.05.2012 Сообщений: 8
	07.05.2012, 09:54 [ТС]	3
	А можно написать текст самой программы к этой задаче, плиз! 0

go 3646 / 1378 / 243 Регистрация: 16.04.2009 Сообщений: 4,526
	07.05.2012, 22:22	5
	Сообщение от morgan57 2 минуты поиска в гугле Что и требовалось доказать. Сообщение от morgan57 x := item[i]; Советую хранить не сам элемент, а его значение. Сообщение от morgan57 item[k] := item[i]; { обмен } * * * * *item[i] := x; Вот здесь добавить проверку, для меньшего числа обменов. Все это очень сильно оптимизирует, и без того не оптимизированную сортировку. 1

@dimitrijiyul 0 / 0 / 0 Регистрация: 06.05.2012 Сообщений: 8
	14.05.2012, 14:15 [ТС]	6
	А текст программы полностью к этой задаче можно? Плиз, скиньте кто-нибудь, люди добрые) 0

Опции темы