Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Khanh Nguyễn

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

Nguyễn Trung Hiếu
22 tháng 5 2019 lúc 19:10

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.


Các câu hỏi tương tự
duc tran
Xem chi tiết
Ngọc Ánh
Xem chi tiết
Quyền
Xem chi tiết
Vũ văn huy
Xem chi tiết
Nguyen Duc Anh
Xem chi tiết
Phạm Thị Thu Hằng
Xem chi tiết
Haibanh
Xem chi tiết
An Hạ
Xem chi tiết
Trần Thanh Trọng
Xem chi tiết