Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:АВТИ информатика по паскалю / Metod1_2010 / INSORT / SELECT
.PAS {б®авЁа®ўЄ Їа®бвл¬ ўлЎ®а®¬}
for i:=1 to n-1 do
begin
{ЇаЁбў®Ёвм ўҐ«ЁзЁҐ K
®¬Ґа Ё§ i,...,n
¬ЁЁ¬ «м®Ј® н«Ґ¬Ґв }
{Ї®¬Ґпвм ¬Ґбв ¬Ё i-© Ё K-©
н«Ґ¬Ґвл}
end
for i:=1 to n-1 do
begin
{ЇаЁбў®Ёвм ўҐ«ЁзЁҐ K
®¬Ґа Ё§ i,...,n
¬ЁЁ¬ «м®Ј® н«Ґ¬Ґв }
{Ї®¬Ґпвм ¬Ґбв ¬Ё i-© Ё K-©
н«Ґ¬Ґвл}
end
Соседние файлы в папке INSORT