Đăng nhập để hỏi chi tiết
- Tin Học
- Lớp 8
- 40 điểm
- luka12marine -
Nhân dịp tham gia hội thi Tin học tại Ninh Bình, Zin đã được ban tổ chức cho đi thăm quan khu du lịch Tràng An, mặc dù đã đắm mình trong cảnh đẹp tuyệt diệu tại nơi đây nhưng Zin vẫn không quên mua quà về cho các bạn ở trường. Sau khi đi một vòng Zin bước vào một cửa hàng lưu niệm. Chủ cửa hàng giới thiệu cho Zin n (2 ≤ n ≤ 105) món quà, món quà thứ i (1 ≤ i ≤ n) có giá ai đồng (1 ≤ ai ≤ 109). Zin muốn chọn mua m (2 ≤ m ≤ n) món quà để tặng cho m bạn. Để đảm bảo tương đối công bằng Zin muốn mua các món quà sao cho giá trị chênh lệch giữa món quà có giá trị cao nhất và thấp nhất là nhỏ nhất có thể. Dữ liệu vào: Từ file văn bản BUYGIFTS.INP có cấu trúc như sau: - Dòng 1: Chứa hai số nguyên dương n và m; - Dòng 2: Chứa n số nguyên dương a1, a2, ..., an - Các số trên mỗi dòng cách nhau bởi một kí tự cách trống. Kết quả: Ghi ra file BUYGIFTS.OUT gồm duy nhât số k là độ lệnh giữa món quà có giá trị cao nhất và món quà có giá trị thấp nhất mà Zin sẽ mua. Ví dụ: BUYGIFTS.INP BUYGIFTS.OUT 3 5 3 3 1 4 9 6 PASCAL HELP
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
uses crt;
var f:text; i,j,n,m,kq,t:longint; a:array[1..100000]of longint;
begin
clrscr;
assign(f,'BUYGIFTS.INP');reset(f);
readln(f,n,m);
for i:=1 to n do read(f,a[i]);
close(f);
assign(f,'BUYGIFTS.OUT');rewrite(f);
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;
kq:=high(longint);
for i:=1 to n-m+1 do
if a[i+m-1]-a[i]<kq then kq:=a[i+m-1]-a[i];
write(f,kq);
close(f);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
52 vote
uses math;
var a:array[0..10000007] of int64;
n,m,mi:int64;
i:longint;
procedure sort(l,r:int64);
var i,j,x,tmp:int64;
begin
i := l; j := r; x := a[(i+j) div 2];
repeat
while a[i] < x do inc(i);
while a[j] > x do dec(j);
if (i <= j) then
begin
tmp := a[i];
a[i] := a[j];
a[j] := tmp;
inc(i);dec(j);
end;
until (i > j);
if (l<j) then sort(l,j);
if (i<r) then sort(i,r);
end;
begin
assign(input,'buygifts.inp');reset(input);
assign(output,'buygifts.out');rewrite(output);
readln(m,n);
mi := trunc(1e18);
for i := 1 to n do read(a[i]);
sort(1,n);
for i := 1 to n-m+1 do
mi := min(mi,a[i+m-1]-a[i]);
writeln(mi);
close(input);close(output);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
52 vote
giải thích với
https://hoidap247.com/cau-hoi/3117473
https://hoidap247.com/cau-hoi/3130638
https://hoidap247.com/cau-hoi/3134601
giúp với
https://hoidap247.com/cau-hoi/3134601
https://hoidap247.com/cau-hoi/3198361
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
2376
42183
1806
Thế á, để đệ sửa 🤣
20
237
9
sao ko ddc banj
20
237
9
https://hoidap247.com/cau-hoi/3117473
364
8819
301
sắp xếp như này thì tle :V
2376
42183
1806
Đề đâu có giới hạn time đâu ạ uwu
20
237
9
bạn thử có đc ko
20
237
9
https://hoidap247.com/cau-hoi/3117473
20
237
9
https://hoidap247.com/cau-hoi/3130638