Вопрос по информатике:
Дан массив N*10 необходимо его отсортировать , Разработайте программу сортировки по убыванию методом выбора. пожалуйста в паскале=***
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.07.2018 13:24
- Информатика
- remove_red_eye 16264
- thumb_up 35
Ответы и объяснения 1
procedure FindMin(startindex: integer; var lowindex: integer);
var lowelem: real;
u: integer;
begin
lowindex := startindex;
lowelem := M[startindex];
for u:=startindex+1 to N do
if M[u] < lowelem then
begin
lowelem := M[u];
lowindex := u
end
end;
begin
for j:=1 to N-1 do
begin
FindMin(j, i);
swap(M[j],M[i])
end
end.
- 03.07.2018 06:47
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.