PROGRAM CT66;
USES crt;
CONST NMax=999;
VAR n,i,j,t: INTEGER;
A: ARRAY[1..NMax] OF INTEGER;
BEGIN
clrscr;
Write('Nhap so phan tu: '); Readln(n);
FOR I:=1 TO N DO
BEGIN
Write('So thu ',i,': '); Readln(A[i]);
END;
FOR J:=N DOWNTO 2 DO
FOR I:=1 TO J-1 DO
IF A[i]>A[i+1] THEN
BEGIN
t:=A[i+1];
A[i+1]:=A[i];
A[i]:= t;
END;
FOR i:=1 TO n DO Write(A[i],' ');
Readln
END.
Download: http://www.mediafire.com/?w64x8p1b0jm0zkn
USES crt;
CONST NMax=999;
VAR n,i,j,t: INTEGER;
A: ARRAY[1..NMax] OF INTEGER;
BEGIN
clrscr;
Write('Nhap so phan tu: '); Readln(n);
FOR I:=1 TO N DO
BEGIN
Write('So thu ',i,': '); Readln(A[i]);
END;
FOR J:=N DOWNTO 2 DO
FOR I:=1 TO J-1 DO
IF A[i]>A[i+1] THEN
BEGIN
t:=A[i+1];
A[i+1]:=A[i];
A[i]:= t;
END;
FOR i:=1 TO n DO Write(A[i],' ');
Readln
END.
Download: http://www.mediafire.com/?w64x8p1b0jm0zkn