Cod sursa(job #21313)
| Utilizator |  Boboia Liviu NuiNimic |
Data | 23 februarie 2007 11:49:01 |
|---|---|---|---|
| Problema | Jocul Flip | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
var f,g:text;i,n,m,q,a,s:longint;
begin
assign (f,'flip.in');
reset (f);
assign (g,'flip.out');
rewrite (g);
read (f,n,m);
repeat
for i:=1 to m do
begin
read (a);
q:=q+a;
end;
s:=s+abs(q);
until eof(f);
write (g,s);
close (g);
end.