题解 P1085 【不高兴的津津】

88888a · 2015-09-10 12:51:56 · 题解

var  
 a,b,c:array[1..7]of integer;  
 i,k,n:longint;  
begin  
 k:=0;  
 for i:=1 to 7 do  
  begin readln(a[i],b[i]);  
   c[i]:=a[i]+b[i];//累加时间  
  end;  
  for i:=1 to 7 do  
   begin  
    if c[i]>k then  
     begin k:=c[i];//找出最长时间的一天  
      n:=i;  
     end;  
   end;  
    if k>8 then write(n)  
     else  
      write(0);  
end.