Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΡΠΈΡΠ΅Π» Π² ΠΌΠ°ΡΡΠΈΠ²Π΅, ΠΏΠ°ΡΠΊΠ°Π»Ρ Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ. Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΡΠ·ΡΡΡΠΊΠΎΠΌ.
Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΡΠΈΡΠ΅Π» Π² ΠΌΠ°ΡΡΠΈΠ²Π΅, ΠΏΠ°ΡΠΊΠ°Π»Ρ Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ. Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΡΠ·ΡΡΡΠΊΠΎΠΌ.
Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΎΠΉ ΠΌΠ°ΡΡΠΈΠ²Π° — Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ Π΅Π³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΏΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ. ΠΠΎΠ³Π΄Π° Π³ΠΎΠ²ΠΎΡΡΡ ΠΎ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ΅ — ΡΠ°ΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΏΠΎΠ΄ΡΠ°Π·ΡΠΌΠ΅Π²Π°ΡΡ ΠΈΠΌΠ΅Π½Π½ΠΎ ΠΏΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ. ΠΠΎ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈ ΠΏΠΎ ΡΠ±ΡΠ²Π°Π½ΠΈΡ. ΠΡΠΎ Π² ΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π΅ΡΠ»ΠΈ Π²ΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠ°Π·Π»ΠΈΡΠ½Ρ ΠΏΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΡΠΈ ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° — Π³ΠΎΠ²ΠΎΡΡΡ ΠΎ Π½Π΅ΡΠ±ΡΠ²Π°ΡΡΠ΅ΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅.
ΠΠ· Π²ΡΠ΅Ρ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ, ΠΌΠ΅ΡΠΎΠ΄ «ΠΡΠ·ΡΡΡΠΊΠ°», Π½Π°Π²Π΅ΡΠ½ΠΎΠ΅, Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΡΠΎΡΡ Π΄Π»Ρ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ. ΠΠ΅ ΡΠ΄ΠΈΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ, ΡΡΠΎ ΡΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΈΠ·ΡΡΠ°Ρ ΠΏΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ. ΠΡΠ΅Π΄ΡΡΠ°Π²ΡΡΠ΅ ΡΡΠ΅ΠΊΠ»ΡΠ½Π½ΡΡ ΡΡΡΠ±ΠΊΡ Ρ Π²ΠΎΠ΄ΠΎΠΉ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ ΡΠ°ΡΠΈΠΊΠΈ ΡΠ°Π·Π½ΡΡ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠ², ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ ΡΠ°Π·Π½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΌΡ. Π¨Π°ΡΠΈΠΊΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ Π»Π΅Π³ΡΠ΅ Π²ΠΎΠ΄Ρ. ΠΡΠ»ΠΈ ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ, Π° ΠΏΠΎΡΠΎΠΌ ΠΎΡΡΠ°Π²ΠΈΡΡ Π² ΠΏΠΎΠΊΠΎΠ΅ Π½Π° Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²ΡΠ΅ΠΌΡ, ΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΌΠ΅ΡΠΈΡΡ, ΡΡΠΎ Π±ΠΎΠ»Π΅Π΅ ΠΊΡΡΠΏΠ½ΡΠ΅ ΡΠ°ΡΠΈΠΊΠΈ Π±ΡΠ΄ΡΡ ΡΠ²Π΅ΡΡ Ρ, Π° Π±ΠΎΠ»Π΅Π΅ ΠΌΠ΅Π»ΠΊΠΈΠ΅ Π²Π½ΠΈΠ·Ρ. Π’Π°ΠΊΠΈΠΌ Π½Π°Π³Π»ΡΠ΄Π½ΡΠΌ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠΎΠΌ, ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠΏΠΈΡΠ°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ — ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° «ΠΡΠ·ΡΡΡΠΊΠΎΠΌ».
program Task_Sort;
{Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΡΠΈΡΠ΅Π» Π² ΠΌΠ°ΡΡΠΈΠ²Π΅, ΠΏΠ°ΡΠΊΠ°Π»Ρ Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ}
{Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΡΠ·ΡΡΡΠΊΠΎΠΌ}
const
n = 10;
var
i, j, i_Temp: integer;
i_ArrNum: array[1..n] of integer;
begin
WriteLn('ΠΠ²Π΅Π΄ΠΈΡΠ΅ 10 (Π΄Π΅ΡΡΡΡ) ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΡΡ
ΡΠ΅Π»ΡΡ
ΡΠΈΡΠ΅Π»:');
for i := 1 to n do
ReadLn(i_ArrNum[i]);
for i := 1 to n - 1 do
for j := i + 1 to n do
if i_ArrNum[i] > i_ArrNum[j] then
begin
i_Temp := i_ArrNum[i];
i_ArrNum[i] := i_ArrNum[j];
i_ArrNum[j] := i_Temp;
end;
for i := 1 to n do
Write(i_ArrNum[i], ' ');
WriteLn();
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΡΠΈΡΠ΅Π» Π² ΠΌΠ°ΡΡΠΈΠ²Π΅, ΠΏΠ°ΡΠΊΠ°Π»Ρ Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ. Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΡΠ·ΡΡΡΠΊΠΎΠΌ.