Cod sursa(job #209071)

Utilizator dragos08Adamescu Dragos dragos08 Data 20 septembrie 2008 14:07:49
Problema Jocul Flip Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.79 kb
program info3_overload;
type fliper=1..16;
var n,m:fliper;
    a: array[1..16,1..16] of longint;
    v: array[1..16] of longint;
    i,j,q,w:fliper;
    s,sc,st: longint;
begin
assign(input,'flip.in'); reset(input);
read(n,m);
for i:= 1 to n do for j:= 1 to m do read(a[i,j]);
for i:= 1 to m do
    begin
    s:=0; sc:=0;
    for j:= 1 to n do begin s:=s+a[j,i]; sc:=sc+(a[j,i]*(-1)); end;
    if sc>s then for j:= 1  to n do a[j,i]:=a[j,i]*(-1);
    end;
for i:= 1 to n do
    begin
    s:=0; sc:=0;
    for j:= 1 to m do begin s:=s+a[i,j]; sc:=sc+(a[i,j]*(-1)); end;
    if sc>s then for j:= 1 to m do a[i,j]:=a[i,j]*(-1);
    end;
s:=0;
for i:= 1 to n do for j:= 1 to n do s:=s+a[i,j];
assign(output,'flip.out'); rewrite(output);
write(s);
close(input); close(output);
end.