Dề thi

ĐỀ THI HSG CAP quốc gia
Bµi 9 : ( Bµi thi Tin häc quèc gia 1995 ) KÕt qu¶ thi ®Êu quèc gia cđa n vËn ®éng viªn ( ®¸nh sè tõ 1 ®Õn N ) trªn m m«n ( ®¸nh sè tõ 1 ®Õn m ) ®­ỵc ®¸nh gi¸ b»ng ®iĨm ( gi¸ trÞ nguiyªn kh«ng ©m ) . Víi mçi vËn ®éng viªn ta biÕt ®iĨm ®¸nh gi¸ trªn tõng m«n cđa vËn ®éng viªn Êy . C¸c ®iĨm nµy ®­ỵc gfhi trªn mét File v¨n b¶n cã cÊu trĩc :
+ Dßng ®Çu ghi sè vËn ®éng viªn vµ sè m«n
+ C¸c dßng tiÕp theo , mçi dßng ghi c¸c ®iĨm ®¸nh gi¸ trªn tÊt c¶ m m«n cđa mét vËn ®éng viªn theo thø tù m«n thi 1,2,...,m . C¸c dßng nµy ®­ỵc ghi theo thø tù vËn ®éng viªn 1,2,..,n
+ C¸c sè ghi trªn mét dßng c¸ch nhau Ýt nhÊt 1 dÊu c¸ch
CÇn chän ra k vËn ®éng viªn vµ k m«n ®Ĩ thµnh lËp ®éi tuyĨn thi ®Êu Olympic quèc tÕ , trong ®ã mçi vËn ®éng viªn chØ ®­ỵc thi ®Êu ®ĩng 1 m«n ( 1<=k<=M,N ) , sao cho tỉng sè ®iĨm cđa c¸c vËn ®éng viªn trªn c¸c m«n ®· chän lµ lín nhÊt .
Yªu cÇu :
§äc b¶ng ®iĨm tõ 1 File v¨n b¶n ( Tªn file cho tõ bµn phÝm ) ,sau ®ã cø mçi lÇn nhËn mét gi¸ trÞ k nguyªn d­¬ng tõ bµn phÝm, ch­¬ng tr×nh ®­a lªn mµn h×nh kÕt qu¶ tuyĨn chän d­íi d¹ng k cỈp (i,j) víi ý nghÜa vËn ®éng viªn i ®­ỵc chän thi ®Êu m«n j vµ tỉng sè ®iĨm t­¬ng øng víi c¸ch chän . Ch­¬ng tr×nh kÕt thĩc khi nhËn ®­ỵc gi¸ trÞ k=0 C¸c gi¸ trÞ giíi h¹n : 1<=M,N<=20, ®iĨm ®¸nh gi¸ tõ 0 ®Õn 100
ThÝ dơ : File d÷ liƯu
3 3
1 5 0
5 7 4
3 6 3
mçi khi n¹p mét gi¸ trÞ k ta nhËn ®­ỵc :
k=1 , m¸y tr¶ lêi
(2,2)
Tỉng sè ®iĨm = 7
k=2 , m¸y tr¶ lêi
(2,1) (3,2)
Tỉng sè ®iĨm = 11
k=3 , m¸y tr¶ lêi
(1,2) (2,1) (3,3)
Tỉng sè ®iĨm = 13
K=0 KÕt thĩc
{$A+,B-,D+,E+,F-,I+,L+,N-,O-,R-,S+,V-}
{$M 16384,0,655360}

Program BL3;
Uses Crt;
Const Max = 20;
Type Ta = Array[1..max,1..max] of Integer;
Tb = Array[1..max] of Byte;
Tl = Array[1..max] of Integer;
Var N,M,k : Byte;
a : Ta;
b,lb : Tb;
G,Lg : Integer;
Ok : Set of Byte;

Procedure Input;
Var Tf : String;
f : Text;
Ok : Boolean;
i,j: Byte;
Begin
Repeat
Write(#10#13,`Cho biet ten file du lieu : `);
Readln(tf);
{$i-} Assign(f,tf); Reset(f); {$i+}
Ok:=Ioresult=0;
If Not Ok then
Begin
Writeln(`File loi hoac khong co file ten la :`,tf);
End;
Until Ok and (tf<>``);
Readln(f,n,m);
For i:=1 to n do
Begin
For j:=1 to m do Read(f,a[i,j]);
Readln(f);
End;
Close(f);
End;
Procedure NhapK;
Begin
Repeat
Write(#10#13,`Cho biet so mon can chon K:=`);
{$i-} Readln(k); {$i