Pagini recente » Cod sursa (job #2632608) | Cod sursa (job #2713560) | Cod sursa (job #148156) | Cod sursa (job #1188699) | Cod sursa (job #108916)
Cod sursa(job #108916)
program flip;
type matrice=array [1..16,1..16] of longint;
var mat:matrice;
n,m,i,j,nr:longint;
st:array [1..16] of integer;
f:text;
procedure tipar;
begin
for i:=1 to n do
write(st[i],' ');
writeln
end;
function suma:longint;
var s,sum:longint;
begin
sum:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+mat[i,j]*st[i];
sum:=sum+abs(s)
end;
suma:=sum
end;
procedure final;
var x:longint;
begin
x:=suma;
if x>nr then
nr:=x
end;
procedure stiva(k:integer);
var x:integer;
begin
for x:=-1 to 1 do
begin
if (x<>0) then
begin
st[k]:=x;
if k=n then
final
else
stiva(k+1)
end
end
end;
begin
assign(f,'flip.in');
reset(f);
read(f,n,m);
for i:=1 to n do
for j:=1 to m do
read(f,mat[i,j]);
close(f);
nr:=0;
stiva(1);
assign(f,'flip.out');
rewrite(f);
writeln(f,nr);
close(f)
end.