Cod sursa(job #82013)

Utilizator nydmirt mihai-andrei nyd Data 5 septembrie 2007 16:59:18
Problema Jocul Flip Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.01 kb
program flip;
type matrice=array[1..16,1..16] of int64;
var i,j,m,n,k:smallint;
    minus,plus:int64;
    a:matrice;
    f,g:text;
begin
minus:=0;
plus:=0;
assign(f,'flip.in');
reset(f);
read(f,m);
read(f,n);
for i := 1 to m do
  begin
    readln(f);
    for j := 1 to n do
      read(f,a[i,j]);
  end;
close(f);
for i := 1 to m do
  for j := 1 to n do
    if a[i,j]<0 then
      begin
      for k :=1 to m do
        if a[k,j]<0 then
          minus:=minus+a[k,j]*-1
        else
          plus:=plus+a[k,j];
        if minus>plus then
          for k := 1 to m do
            a[k,j]:=a[k,j]*-1;
      minus:=0;plus:=0;
      for k := 1 to n do
        if a[i,k]<0 then
          minus:=minus+a[i,k]*-1
        else
          plus:=plus+a[i,k];
        if minus>plus then
          for k := 1 to n do
            a[i,k]:=a[i,k]*-1;
      end;
minus:=0;
for i := 1 to m do
  for j := 1 to n do
  minus:=minus+a[i,j];
assign(g,'flip.out');
rewrite(g);
write(g,minus);
close(g)
end.