Code bài HANGCOT, mảng 2 chiều

const
   fin='hangcot.inp';fon='hangcot.out';
   maxn = 1000;maxm = 1000;
   vc=10000;

var
   a,b:array[1..maxm,1..maxn] of longint;
   m, n, k:longint;
procedure nhap;
var i,j:longint;
begin
read(m,n,k);
for i:=1 to m do
   for j:=1 to n do read(a[i,j]);
end;

procedure caua;
        var i,s:longint;
        begin
        s:=0;
        for i:=1 to n do s:=s+a[k,i];
        writeln(s);
        end;

procedure caub;
        var i,d:longint;
        begin
        d:=0;
        for i:=1 to m do
                if a[i,k] mod 2 = 0 then inc(d);
        writeln(d);
        end;

procedure cauc;
        var i,j,max,imax,s:longint;
        begin
        max:=-vc;imax:=0;
        for i:=1 to m do
                begin
                s:=0;
                for j:=1 to n do
                        s:=s+a[i,j];
                if s>max then
                        begin
                        max:=s;
                        imax:=i;
                        end;
                end;
        writeln(imax);
        end;

procedure caud;
        var i:longint;
                co:boolean;
        begin
        co:=true;
        for i:=1 to m do
                if a[i,k] mod 2 = 1 then co:=false;
        if co then writeln('yes') else writeln('no');
        end;

begin
assign(input,fin);reset(input);
assign(output,fon);rewrite(output);
nhap;
caua;
caub;
cauc;
caud;
end.