s:=0;
for i:=1 to n do
  for j:=1 to m do  
   if a[i,j]<0 then s:=s+1;
    if (s<>0) then writeln('в 'i,'-той строке ,s,' отрицательных эл-тов');

var a:array[1..n,1..m] of real;
       b:array [1..n] of integer;
       k:[1..2] of real;   в первой ячейки мы храним макимальное число чётных эл-тов, а во второй- номер столбца
  realn(n);
  writeln(m);
   for i:=1 to n do begin
    b[i]:=0;
    for j:=1 to m  do  
     if (a[i,j]mod 2=0) then b[i]:=b[i]+1;
   end;
   k[1,1]:=b[1];
   k[1,1]:=1;
for i:=1 to n do begin
    if k[1,1]>b[i] then  
     begin  
      k[1,1]:=b[i];
      k[1,2]:=i;
     end;
end;