Cod sursa(job #51535)

Utilizator MDanFMI - Dan Moldovan MDan Data 14 aprilie 2007 15:42:37
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
Var f,g:text;
    m,n,lk,i,j,s,stemp:longint;
Begin
assign (f,'flip.in');
assign (g,'flip.out');
reset(f);
rewrite (g);
Readln (f,n,m);
for i:=1 to n do
    begin
    for j:=1 to m do
    begin
    read (f,lk);
    stemp:=stemp+lk;
    end;
    readln (f);
    stemp:=abs(stemp);
    s:=s+stemp;
    stemp:=0;
    end;
writeln (g,s);
End.