作业帮编程pascal语言 阅读训练（read.pas） 描述如下第二题 阅读训练（read）一天晨晨在做阅读训练.她拿了一本包括n篇文章的小说集,第i篇文章包括bi (1≤bi≤100)页,已知晨晨每读一页都要花一分钟.
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/06 07:25:43
编程pascal语言 阅读训练（read.pas） 描述如下第二题 阅读训练（read）一天晨晨在做阅读训练.她拿了一本包括n篇文章的小说集,第i篇文章包括bi (1≤bi≤100)页,已知晨晨每读一页都要花一分钟.
编程pascal语言 阅读训练（read.pas） 描述如下
第二题 阅读训练（read）
一天晨晨在做阅读训练.她拿了一本包括n篇文章的小说集,第i篇文章包括bi (1≤bi≤100)页,已知晨晨每读一页都要花一分钟.假设晨晨开始阅读小说第一页的时间起点为0,她读第一篇文章从时间点0到时间点b1-1,第二篇文章从时间点b1到时间点b1+b2-1,依此类推…,阅读第n篇文章的时间点b1+b2+…+bn-1到时间点b1+b2+…+bn-1+bn-1.那么,当在时间点t时(0≤t
编程pascal语言 阅读训练（read.pas） 描述如下第二题 阅读训练（read）一天晨晨在做阅读训练.她拿了一本包括n篇文章的小说集,第i篇文章包括bi (1≤bi≤100)页,已知晨晨每读一页都要花一分钟.
这个题蛮简单的：
program Project1;
var
N, Q, i, j: Word;
P, T: array[0..100] of Word;
begin
Readln(N, Q);
P[0] := 0;
for i := 1 to N do
begin
Readln(j);
P[i] := P[i - 1] + j
end;
for i := 0 to Q - 1 do
Readln(T[i]);
for i := 0 to Q - 1 do
begin
if T[i] < P[N] then
begin
j := 0;
while T[i] > P[j] do Inc(j);
if T[i] = P[j] then Inc(j);
Writeln(j);
end
else Writeln(0);
end;
Readln;
end.