uses crt; var i,j,tong,n,max,vt,m:longint; a:array[1..1000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n do begin write('Do dai cua day thu ',i,': ');readln(m); tong:=0; for j:=1 to m do begin write('a[',j,']=');readln(a[i]); inc(tong,a[i]); end; if tong>max then begin max:=tong; vt:=i; end; end; writeln('Day co tong lon nhat la day thu ',vt); readln end.
