Question

Mọi người giúp dùm e bài này với ạ, e đang cần rất gấp ạ thứ 5 này thi rồi :((

Câu hỏi: Tệp dulieu.int chứa 2 dòng:

- Dòng 1 chứa số nguyên dương n( n<=100 )

- Dòng 2 chứa n số nguyên

Viết chương trình tạo tệp dulieu.out chứa n số nguyên của tệp dulieu.int được sắp xếp theo chiều giảm dần.

E nghĩ mãi mà vẫn không ra hic, mong mọi người giúp đỡ ạ <3

Answer 1

const
nhap='dulieu.int';
xuat='dulieu.out';
var a:array[1..100000] of longint;
i,n,j,tg:longint;
begin
assign(input,nhap);reset(input);
assign(output,xuat);rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n do
write(a[i],' ');
readln
end.