Pagini recente » Cod sursa (job #3243071) | Cod sursa (job #997624) | Cod sursa (job #963231) | Cod sursa (job #2211856) | Cod sursa (job #770164)
Cod sursa(job #770164)
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);
read(fin,n);//y
read(fin,m);//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];
s:=s-2*min;
close(fin);
rewrite(fout);
write(fout,s);
close(fout);
end.