Cod sursa(job #288089)

Utilizator sandu2508Grigoroi Alexandru sandu2508 Data 25 martie 2009 15:51:55
Problema Jocul Flip Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.43 kb
program flip;

var
   n, m, i, j, k, sum: longint;
   f: text;

begin
   assign(F, 'flip.in');
   sum:=0;
   reset(F);
   readln(f, N, M);
   for i:= 1 to n do
      begin
         for j:= 1 to m do
            begin
               read(f, k);
               sum:=sum+abs(k);
            end;
         readln(F);
      end;
   close(F);
   assign(f, 'flip.out');
   rewrite(F);
   writeln(f, sum);
   close(F);
end.