Cod sursa(job #646106)
| Utilizator |  Tudor Costin Razvan costyrazvy |
Data | 10 decembrie 2011 21:09:29 |
|---|---|---|---|
| Problema | Jocul Flip | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
var i,n,m,x,s:longint;
begin
assign(input,'flip.in');
reset(input);
assign(output,'flip.out');
rewrite(output);
read(n);
read(m);
for i:=1 to m*n do begin
read(x);
if x>0 then s:=s+x;
end;
write(s);
close(output);
end.