Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
type so=record
a,b:longint
end;
var n,s,res,i,j:longint;
k:array[1..10000] of so;
procedure swap(x,y:longint);
var t:so;
begin
t:=k[x];
k[x]:=k[y];
k[y]:=t;
end;
begin
clrscr;
readln(N);
s:=1;
for i:=1 to n do
begin
with k[i] do
begin
readln(a,b);
s:=s+b;
end;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if k[i].b<k[j].b then
swap(i,j)
else
if k[i].b=k[j].b then
if k[i].a<k[j].a then
swap(i,j);
i:=1;
while (s>0) and(i<=n) do
begin
with k[i] do
begin
res:=res+a;
s:=s-1;
end;
i:=i+1;
end;
write(res);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Sự kiện
542
12650
190
sao chuyên tin mà lại đi cày toán =)) cày tin đi chứ :v
87
1675
55
thi 2 môn chuyên mà:))
542
12650
190
Ừa hây quơn toán đi đôi với tin mà =))sr sr
3814
5090
2903
hh
3814
5090
2903
Ê chỉ xài rồ điu ik
3814
5090
2903
K bt xài
87
1675
55
chương trình con để sắp xếp thôi ý mà:)
542
12650
190
là sao :)?