Cod sursa(job #1604304)

Utilizator SherlockHolmesPlesca Vlad SherlockHolmes Data 18 februarie 2016 09:29:05
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.93 kb
program Flip;
var n,j,m,y,c,jmax,s,l,imax,i:longint;
    a,b:text;
    v:array[1..16,1..16] of longint;
begin
assign(a,'flip.in');
reset(a);
assign(b,'flip.out');
rewrite(b);
read(a,n,m);
for i:=1 to n do
  for j:=1 to m do
    read(a,v[i,j]);
for i:=1 to n do  begin
  for j:=1 to m do
    v[i,j]:=v[i,j]*-1;
  for y:=1 to n do
    for l:=1 to m do
      inc(s,v[i,j]);
  if c<s then begin c:=s;imax:=i; end;
    for l:=1 to m do v[i,l]:=v[i,l]*-1;
  s:=0;
end;
c:=0;
for j:=1 to m do begin
  for i:=1 to n do
    v[i,j]:=v[i,j]*-1;
  for y:=1 to n do
    for l:=1 to m do
      inc(s,v[i,j]);
  if c<s then begin c:=s;jmax:=j; end;
    for l:=1 to n do v[l,j]:=v[l,j]*-1;
  s:=0;
end;
s:=0;
if imax<>0 then for j:=1 to m do v[imax,j]:=v[imax,j]*-1;
if jmax<>0 then for i:=1 to n do v[i,jmax]:=v[i,jmax]*-1;
  for i:=1 to n do
  for j:=1 to m do
    inc(s,v[i,j]);
writeln(b,s);
close(a);
close(b);
end.