我这个哪里错了?

type
qw=array[1..200] of integer;
var
n,k,i,j,q,w:integer;
a,b:qw;
begin
read(n,k);
for i:=1 to k do
begin
read(a[i]);
readln(b[i]);
end;
i:=1;q:=n;
repeat
for j:=1 to k do
if (i=a[j])and(b[j] > w) then w:=b[j];
if w<>0 then
begin
i:=i+w;
q:=q-w;
end
else i:=i+1;
w:=0;
until i >= n;
writeln(q);
end.

0 条评论

目前还没有评论...

信息

ID
1577
难度
2
分类
动态规划 | 动态规划 | LIS 点击显示
标签
(无)
递交数
1234
已通过
682
通过率
55%
上传者