.


:




:

































 

 

 

 





. , , :

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.

, , , , .





:


: 2016-11-18; !; : 372 |


:

:

: , .
==> ...

1852 - | 1457 -


© 2015-2024 lektsii.org - -

: 0.014 .