Вопрос по информатике:
Учитель написал на доске написал код процедуры сортировки на трех языках (см. рисунок), а также массив из 12 целых чисел, который надо отсортировать: 6, 5, 10, 0, 3, 8, 11, 1, 4, 7, 2, 9. Ваша задача: определить, сколько перестановок будет сделано в процессе сортировки. Одна перестановка — обмен местами двух элементов. В качестве ответа выведите одно целое число.
- 05.11.2016 04:39
- Информатика
- remove_red_eye 19423
- thumb_up 48
Ответы и объяснения 1
Решение:
var arr: array [1..12] of real; s, tmp: real; element_id_1, element_id_2: integer;begin s:=0; for element_id_1:=1 to 12 do readln (arr[element_id_1]); for element_id_1:=1 to 12 do begin for element_id_2:=1 to element_id_1-1 do begin if arr[element_id_2]>arr[element_id_1] then begin tmp:=arr[element_id_2]; arr[element_id_2]:=arr[element_id_1]; arr[element_id_1]:=tmp; s:=s+1; end; end; end; writeln(s);end.
- 06.11.2016 12:58
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.