Cod sursa(job #288089)
Utilizator | Grigoroi 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.