Cod sursa(job #108916)

Utilizator mari_anaMariana Gheorghe mari_ana Data 24 noiembrie 2007 10:04:43
Problema Jocul Flip Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.89 kb
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.