Pagini recente » Borderou de evaluare (job #112329) | Cod sursa (job #525717)
Cod sursa(job #525717)
var a:array[1..100]of byte;
c:array[1..100,1..100]of int64;
n,m:byte; max:int64;
procedure citire;
var i,j:byte;f:text; k:int64;
begin
assign(f,'flip.in');
reset(f);
readln(f,n,m);
for i:=1 to n do
begin
k:=0;
for j:=1 to m do begin read(f,c[i,j]); write(c[i,j],' ');end;
readln(f);
end;
close(f);
end;
procedure aras;
var i,j:byte; s,k:int64;
begin
s:=0;
for i:=1 to n do
begin
k:=0;
for j:=1 to m do k:=k+c[i,j]*a[j];
s:=s+abs(k);
end;
if s>max then max:=s;
end;
procedure gen_bin(p:byte);
begin
if p>m then aras
else begin
a[p]:=-1; gen_bin(p+1);
a[p]:=1; gen_bin(p+1);
end;
end;
begin
citire;
max:=0;
gen_bin(1);
readln;
end.