freepascal题目

欢欢受到猪八戒邀请去天宫履行，但是要知道天上一天地上一年，欢欢有些担心，但欢欢是个比较闲的人一年中在地球上不需要很长时间，请你编辑一个程序来求出欢欢可以在天公留得最长时间（四舍五入精确的秒）；输入数据：第一行大于0实数，输入欢欢需要在地球上的天数，第二行分别输入呆的这些天的日期，输出欢欢可以在天宫停留的最长的时间

Program heaven;

var
month,days,dayth,a,b,n,i,max:integer;
s:array[0..366]of integer;

begin
read(n);
s[0]:=0;
for i:=1 to n do
begin
readln(month,dayth);
case month of
1:days:=0;
2:days:=31;
3:days:=60;
4:days:=91;
5:days:=121;
6:days:=152;
7:days:=182;
8:days:=213;
9:days:=244;
10:days:=274;
11:days:=305;
12:days:=366;
end;
days:=days+dayth;
s[i]:=days;
end;

for i:=1 to n do
if s[i]-s[i-1]>max then max:=s[i]-s[i-1];

writeln(max*3600*24);

end. //Powerd by Tianyou

没给我测试数据、我不知道答案对不对

我自己测试好使

assign什么的你自己加哈

完成任务！解题报告上该出现我的名字！！哈哈

下次就拜得瑟啦

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息