bài tập về mảng

by jetlongk4 18/2/2011, 10:33 am

lập trưiơng trình thực hiện công việc sau:
-Nhập môt mảng gồm các số nguyên.
-Xếp mảng theo thứ tự tăng dần.
-Nhập một số nguyên từ bàn phím sau đó chèn số nguyên đó vào mảng sao cho mảng không mất tính tăng dần.

(Các bạn có thể dùng chương trình con giúp mình nhá
mình đang măc tại y' thứ 3).

by tue96 18/2/2011, 10:37 pm

Phần thứ 3 nèy
for i:=1 to n do
if x>=a[i] then begin j:=i;break; end; {x là số nhập zo}
n:=n+1; {n là độ dài mảng}
for i:=n downto j do
a[i]:=a[i+1];
x:=a[j];
.......
ok rùi đó. có lỗi fix dùm nha Smile