題意

求出加上額外權值以后，最終的權值最大的k個人，并輸出他們的編號。

分析

先排序，再一個一個求權值。

var
n,k,i:longint;
e:array[0..10]of longint;
a:array[0..50000,1..4]of longint;
procedure kp(l,r:longint);
var
i,j,mid,key1,key2:longint;
begin
? ? if l>r then exit;
? ? mid:=l+random(r-l+1);
? ? key1:=a[mid,2];
? ? key2:=a[mid,1];
? ? i:=l;j:=r;
? ? repeat
? ? ? ? ?while (a[i,2]>key1) or (a[i,2]=key1) and (a[i,1]<key2) do inc(i);
? ? ? ? ?while (a[j,2]<key1) or (a[j,2]=key1) and (a[j,1]>key2) do dec(j);
? ? ? ? ?if i<=j then
? ? ? ? ?begin
? ? ? ? ? ? ?a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
? ? ? ? ? ? ?inc(i); dec(j);
? ? ? ? ?end;
? ? until(i>j);
? ? kp(l,j);
? ? kp(i,r);
end;


begin
? ? readln(n,k);
? ? for i:=1 to 10 do
? ? read(e[i]);
? ? readln;
? ? for i:=1 to n do
? ? begin
? ? ? ? read(a[i,2]);
? ? ? ? a[i,1]:=i;
? ? end;
? ? kp(1,n);
? ? for i:=1 to n do
? ? begin
? ? ? ? a[i,3]:=i;
? ? ? ? a[i,4]:=(a[i,3]-1) mod 10 +1;
? ? ? ? a[i,2]:=a[i,2]+e[a[i,4]];
? ? end;
? ? kp(1,n);
? ? for i:=1 to k-1 do
? ? write(a[i,1],' ');
? ? if k<>0 then write(a[k,1]);
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500220.html

總結

以上是生活随笔為你收集整理的魔法照片pascal程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。