PROGRAM CT68;
USES crt;
CONST Max=1000;
TYPE Mang = ARRAY[1..Max] OF INTEGER;
VAR n,i,t,j: INTEGER;
A: Mang;
BEGIN
clrscr;
randomize;
Write('Nhap so phan tu cua mang: '); Readln(n);
FOR I:=1 TO N DO BEGIN A[i]:=Random(10000); END;
Writeln('Day ban dau: ');
FOR i:=1 TO n DO Write(A[i],' '); Writeln;
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;
Writeln('Day so duoc sap xep theo thu tu khong giam: ');
FOR i:=1 TO n DO Write(A[i],' '); Writeln;
Readln
END.
Download: http://www.mediafire.com/?6vmawtn3avey7fk
USES crt;
CONST Max=1000;
TYPE Mang = ARRAY[1..Max] OF INTEGER;
VAR n,i,t,j: INTEGER;
A: Mang;
BEGIN
clrscr;
randomize;
Write('Nhap so phan tu cua mang: '); Readln(n);
FOR I:=1 TO N DO BEGIN A[i]:=Random(10000); END;
Writeln('Day ban dau: ');
FOR i:=1 TO n DO Write(A[i],' '); Writeln;
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;
Writeln('Day so duoc sap xep theo thu tu khong giam: ');
FOR i:=1 TO n DO Write(A[i],' '); Writeln;
Readln
END.
Download: http://www.mediafire.com/?6vmawtn3avey7fk