编译通过...

├ 测试数据 01：答案正确... 56ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 9ms

├ 测试数据 07：运行超时|无输出...

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 72ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：137ms

program t1;

var

n,m,o,k:word;

days:array[1..5000]of int64;

i,j,ls,l:word;

ans:array[1..5000]of int64;

begin

readln(n,m,k);

readln(o);

for i:=1 to m do read(days[i]);

l:=0;

ls:=o;

for i:=1 to n do

begin

for j:=1 to m do

begin

if o