GIAI BAI TAP THUC HANH 4

Bài Thực Hành Số 4 ----------------- -----------------***** ***** *****----------------- ----------------- Bài 1. uses crt; var A:array[1..250] of integer; n,i,j,y,dem,t:integer; begin clrscr; randomize; write(`Nhap n: `);readln(n); for i:=1 to n do A[i]:=random(300)-random(300); for i:=1 to n do write(A[i]:5); writeln; dem:=1; for j:=n downto 2 do for i:=1 to j-1 do if A[i]>A[i+1] then begin t:=a[i]; a[i]:=a[i+1]; A[i+1]:=t; dem:=dem+1; end; write(`Sau khi dao `,dem,` lan`); for i:=1 to n do write(A[i]:7); writeln; readln end. Bài này cho kêt quả là ngẫu nhiên.