Cod sursa(job #2527020)

Utilizator plugaruaPlugaru Andrei plugarua Data 19 ianuarie 2020 14:51:26
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Teme Pregatire ACM Unibuc 2014, Anul II Marime 1.24 kb
program flip;
var t:array[1..16,1..16] of int64;
s:array[1..10,1..10] of int64;
inf,outf:text;
i,j,n,m,max,rez,r,c,sm,e:int64;
begin
  assign(inf,'flip.in');
  reset(inf);
   assign(outf,'flip.out');
  rewrite(outf);
  readln(inf,n,m);
  for i:=1 to n do
    begin
    for j:=1 to m do
      read(inf,t[i,j]);
      readln(inf);
      end;
      
     for i:=1 to n do
    
    for j:=1 to m do
      begin
      s[i,1] := s[i,1]+t[i,j]*(-1);
     
      end;
      
        for i:=1 to m do
        for j:=1 to n do
           s[i,2] := s[i,2]+t[j,i]*(-1);
           
             max := s[1,1]+s[1,2]; ;
               r := 1;
           c:=1;
     for i:=1 to n do
       for j:=1 to m do 
       begin
         sm:= s[i,1]+s[j,2]; 
         if(sm>max) then 
         begin  
           max := s[i,1]+s[j,2];;
           r := i;;
           c:=j;
         end;
       end; 
       sm:=0;
       for i:=1 to n do
         for j:=1 to m do
         begin  
           if(i<>r) then
           if (j<>c) then
             begin
               
               e:=t[i,j];
              sm:=sm+t[i,j];
             end;
         end;
         sm := sm+max;;
         write(outf,sm);
         close(outf);
end.