. , , :
172.172. . , .
: , , , . , , .
1-: , 10 ( ). , . . , , , , .
. , 1 , . , , . . :
( ) , , . 172 165. , . 172 180, , . 180, 172. , , . :
...
b:= a[1];
a[1]:= a[3];
a[3]:= b;
...
ϳ , . ϳ , , .. . . ϳ :
. | ||||||||||
1 | ||||||||||
2 | ||||||||||
3 | ||||||||||
4 | ||||||||||
5 | ||||||||||
6 | ||||||||||
7 | ||||||||||
8 | ||||||||||
9 |
. 9! [8]. . :
|
|
Program sort1;
uses dos, crt;
const b: array[1..10] of byte =
(172,165,180,174,182,179,183,185,176,181);
var a: array[1..10] of byte;
i, j, n: integer;
k: byte;
begin
clrscr;
for i:=1 to 10 do a[i]:=b[i];
{ }
n:=10;
for i:=1 to n-1 do
begin
for j:= i+1 to n do
if a[i]<a[j] then
begin
k:= a[j];
a[j]:= a[i];
a[i]:= k;
end;
end; { ʳ }
writeln( ³ 10 : );
for i:=1 to 10 do write(a[i], );
readln;
end.
, , , , .