Pagini recente » Cod sursa (job #523930) | Cod sursa (job #1978900) | Monitorul de evaluare | Cod sursa (job #1978722) | Cod sursa (job #34149)
Cod sursa(job #34149)
program flip;
type matrice=array [1..16,1..16] of integer;
var mat:matrice;
n,m,i,j,nr:integer;
st:array [1..16] of integer;
f:text;
procedure tipar;
begin
for i:=1 to n do
write(st[i],' ');
writeln
end;
function suma:integer;
var s,sum:integer;
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 valid;
begin
if suma>nr then
nr:=suma
end;
procedure stiva(k:integer);
var x:integer;
begin
for x:=-1 to 1 do
begin
if (x=-1) or (x=1) then
begin
st[k]:=x;
if k=n then
valid
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.