Giúp Em với các Bác ơi.

[vantuyenhd]

Em mới học Passcal nên không thạo lắm, Em đang mắc phải lỗi: Có thể nhập mảng(1chiều) vào đc, nhưng khi in lên(In sau khi sắp xếp) nó lại không dc, mong các bác trợ giúp.
Thanks!
BL:
Program c3d1;
Const n=4;{n la so phan tu cua mang}
Type
MANG1=array[1..n] of integer;
Var
a:MANG1;
i,j,Min,tg:integer;
Begin {Nhap mang}
For i:=1 to n do
Begin
Write('Moi ban nhap a[',i,']=');readln(a[i]);
End;
Writeln('Mang ban vua nhap la:');
{In mang vua nhap}
For i:=1 to n do
Writeln(a[i]:6);
{Sap xep mang bang thuat toan chon truc tiep}
For i:=1 to n-1 do
Begin
MIN:=1;
For j:=i+1 to n do
if (a[MIN]<a[j]) then MIN:=j;
{Doi vi tri cua MIN cho a[i]}
a[i]:= a[MIN];
a[MIN]:=tg;
tg:=a[i];
End;
Writeln('mang sau khi sap xep');
For i:=1 to n do
Write(a[i]:6);
Readln;
End.

[NothingToLost]

For i:=1 to n-1 do
Begin
MIN:=1;
For j:=i+1 to n do
if (a[MIN]<a[j]) then MIN:=j;
a[i]:= a[MIN];
a[MIN]:=tg;
tg:=a[i];
End;
End.

Nếu bạn ko để cái đoạn đổi vị trí vào trong 1 cái begin end cùng với cái if thì làm sao mà được .....
Đúng của nó phải là:

if (a[MIN]<a[j]) then
beign
MIN:=j;
a[i]:= a[MIN];
a[MIN]:=tg;
tg:=a[i];
End;

[ngtrhieu0011]

tui làm thử có dở thì nói nha:

bt:
program sapxep;
uses crt;
const n=20;
type mang=array [1..20] of integer;
var a:mang;
m:integer;
procedure sort(var a:mang;m:integer);
var i,j:integer;
begin
for i:=1 to m-1 do
for j:=2 to m do
if a[i]>a[j] then
begin
a[i]:=a[i]+a[j];
a[j]:=a[i]-a[j];
a[i]:=a[i]-a[j];
end;
end;
procedure nhap(var a:mang;var m:integer);
var i:integer;
begin
clrscr;
write('Nhap so phan tu: ');
readln(m);
clrscr;
for i:=1 to m do
begin
write('Phan tu thu ',i,': ');
read(a[i]);
clrscr;
end;
end;
procedure xuat(a:mang;m:integer);
var i:integer;
begin
write('Mang da sap xep la: ');
for i:=1 to m do
write(a[i],' ');
readln;
end;
begin
nhap(a,m);
sort(a,m);
xuat(a,m);
readln;
end.

[heocontotbung]

mình thường dùng thuật toán sau để sắp xếp mảng, vừa đơn giản, vừa dễ nhớ T__T nhưng thấy người áp dụng. giả dụ trường hợp này mảng có n phần tử và muốn sắp xếp từ nhỏ đến lớn nhé! ^^

For i:=1 to n-1 do
For j:=i+1 to n do
If mang1[i]>mang1[j] then
Begin
trunggian:=mang1[i];
mang1[i]:=mang1[j];
mang1[j]:=trunggian;
End;