Kenji Phan- K7 Member
- Tổng số bài gửi : 52
Join date : 19/03/2010
Age : 33
Đến từ : Sa Đéc
by Kenji Phan 6/7/2010, 3:01 pm
- Code:
uses crt;
var a:array[1..100] of integer;
i,j,x,n:integer;
procedure swap(var x,y:integer);
var i:integer;
begin
i:=x;
x:=y;
y:=i;
end;
function po(x:integer):integer;
var i:integer;
begin
n:=n+1;
for i:=1 to n do
if a[i]>x then break;
po:=i;
end;
procedure insrt(x,y:integer);
var i:integer;
begin
for i:=n downto y do
a[i+1]:=a[i];
a[y]:=x;
end;
begin
clrscr;
randomize;
write('Nhap N ');readln(n);
while n<20 do
begin
write('N >20 nhap lai n= ');
readln(n);
end;
for i:=1 to n do a[i]:=random(100)+1;
writeln('Day ngau nhien:');
for i:=1 to n do write(A[i],' ');
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then swap(a[i],a[j]);
writeln('Day da xep tang dan:');
for i:=1 to n do write(A[i],' ');
writeln;
write('Nhap x: ');readln(x);
insrt(x,po(x));
writeln('Day da chen X');
for i:=1 to n do write(A[i],' ');
writeln;
readln;
end.