1 Нагин Сергей Юрьевич, 22 ноября 2009 г. 18:10:38
read(n,l,k); for i:=1 to n do for j:=1 to k do begin read(b[i,j]); a[i,b[i,j]]:=j; end; x:=k; for j:=k-1 downto 1 do begin s:=0; for i:=1 to n do if a[i,j]<a[i,x] then s:=s+1; if s>=l then x:=j; end; writeln(x); у мну так....
