1. 程式人生 > >2004年分割槽聯賽普級組之一 不…

2004年分割槽聯賽普級組之一 不…

Description

  津津上初中了。媽媽認為津津應該更加用功學習,所以津津除了上學之外,還要參加媽媽為她報名的各科複習班。另外每週媽媽還會送她去學習朗誦、舞蹈和鋼琴。但是津津如果一天上課超過八個小時就會不高興,而且上得越久就會越不高興。假設津津不會因為其它事不高興,並且她的不高興不會持續到第二天。請你幫忙檢查一下津津下週的日程安排,看看下週她會不會不高興;如果會的話,哪天最不高興。

Input

  輸入包括七行資料,分別表示週一到週日的日程安排。每行包括兩個小於10的非負整數,用空格隔開,分別表示津津在學校上課的時間和媽媽安排她上課的時間。

Output

  輸出檔案包括一行,這一行只包含一個數字。如果不會不高興則輸出0,如果會則輸出最不高興的是周幾(用1, 2, 3, 4, 5, 6, 7分別表示週一,週二,週三,週四,週五,週六,週日)。如果有兩天或兩天以上不高興的程度相當,則輸出時間最靠前的一天。 

Sample Input

Sample Output

  a:array[1..7,1..7]of longint;
  b:array[1..7]of longint;
  i,j,x,max:longint;
begin
  for i:=1 to 7 do
    begin
      read(a[1,i],a[2,i]);
      b[i]:=a[1,i]+a[2,i];
    end;
  for i:=1 to 7 do
    if (b[i]>8) and (b[i]>max) then begin max:=b[i]; x:=i; end;
  writeln(x);
end.