Cod sursa(job #770181)

Utilizator Andru_Andru Felipe Zuniga Andru_ Data 22 iulie 2012 13:15:36
Problema Jocul Flip Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.67 kb
program jocul_Flip;
var
 n,m,i,j,k:byte;
 matrice:array[1..16,1..16] of longint;
 temp,s,min:longint;
 fin,fout:text;
begin
 assign(fin,'flip.in');
 assign(fout,'flip.out');
 reset(fin);
 readln(fin,n,m);//y,x
 for j:=1 to n do
  for i:=1 to m do
   begin
    read(fin,temp);
    s:=s+temp;
    matrice[i,j]:=matrice[i,j]-temp;
    for k:=1 to m do
     matrice[k,j]:=matrice[k,j]+temp;
    for k:=1 to n do
     matrice[i,k]:=matrice[i,k]+temp;
   end;
 min:=256000001;
 for i:=1 to m do
  for j:=1 to n do
   if min>matrice[i,j] then
    min:=matrice[i,j];
 writeln(min);
 s:=s-2*min;
 close(fin);
 rewrite(fout);
 write(fout,s);
 close(fout);
end.