Cod sursa(job #2527035)

Utilizator plugaruaPlugaru Andrei plugarua Data 19 ianuarie 2020 15:28:44
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.21 kb
program flip;
var t:array[1..16,1..16] of int64;
s:array[1..10,1..10] of int64;
inf,outf:text;
max,rez,r,c,sm,e:int64;
i,j,n,m:integer;
te:integer;
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.