var i,n,j,k,t:longint;a:array[1..20,1..20]of longint; function min(a,b:longint):longint;begin if a<b then exit(a)else exit(b);end; begin t:=0; while not eof do begin t:=t+1; fillchar(a,sizeof(a),$7f); for i:=1 to 19 do begin read(n); for j:=1 to n do…