Cod sursa(job #1059)
| Utilizator |  udrea cosmin cosmyudrea |
Data | 12 decembrie 2006 15:36:18 |
|---|---|---|---|
| Problema | Jocul Flip | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
program flip;
var a,s,s1,i,j,m,n:longint;
f,g:text;
begin
assign (f,'flip.in');
assign (g,'flip.out');
reset (f);
rewrite (g);
read (f,n,m);
s:=0;
for i:=1 to n do
begin
s1:=0;
for j:=1 to m do
begin
read (f,a);
s1:=s1+a;
end;
s:=s+abs(s1);
end;
write (g,s);
close (f);
close (g);
end.