Nhập vào một dãy số sau đó sắp xếp tăng dần, giảm dần ? Pascal ạ
Phụ huynh gặp khó khăn cân bằng công việc và dạy con chương trình mới. Hãy để dịch vụ gia sư của chúng tôi giúp bạn giảm bớt áp lực, cung cấp kiến thức chuyên sâu và hỗ trợ con bạn học tập hiệu quả.
Câu xem sai sót đoạn nào k nha
![Nhập vào một dãy số sau đó sắp xếp tăng dần, giảm dần ? Pascal ạ nhap-vao-mot-day-so-sau-do-sap-ep-tang-dan-giam-dan-pascal-a](https://mtrend.vn/wp-content/uploads/mon_hoc/tin_hoc/nhap-vao-mot-day-so-sau-do-sap-ep-tang-dan-giam-dan-pascal-a-949.jpg)
uses crt;
var a:array[1..1000000] of longint;
n,i,j,t:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write(‘Day tang dan: ‘);
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
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write(‘Day giam dan: ‘);
for i:=1 to n do write(a[i],’ ‘);
readln;
end.