Cod sursa(job #1411348)

Utilizator stelian2000Stelian Chichirim stelian2000 Data 31 martie 2015 17:19:59
Problema Jocul Flip Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.67 kb
var n,m,i,j,lim,q,sum,max,s,x:longint;
v:array[1..16,1..16] of longint;
v1:array[1..16] of longint;
f,g:text;
begin
assign(f,'flip.in');reset(f);
assign(g,'flip.out');rewrite(g);
read(f,n,m);
for i:=1 to n do
 for j:=1 to m do
  read(f,v[i,j]);
lim:=(1 shl n)-1;
for i:=0 to lim do begin
 for j:=1 to m do v1[j]:=0;
 for j:=1 to n do begin
  if i and (1 shl (j-1))>0 then x:=-1
  else x:=1;
  for q:=1 to m do v1[q]:=v1[q]+x*v[j,q];
                  end;
 sum:=0;
 for j:=1 to m do begin
  if v1[j]<0 then v1[j]:=-v1[j];
  sum:=sum+v1[j];
                  end;
 if sum>max then max:=sum;
                    end;
write(g,max);
close(f);
close(g);
end.